summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordmburmistrov <dmburmistrov@mirantis.com>2016-06-02 15:37:14 +0300
committerdmburmistrov <dmburmistrov@mirantis.com>2016-06-02 18:17:12 +0300
commit0486ff752f3df4edce8f2be425cd64e8ae0e6024 (patch)
tree972634efc11d04303c6b90f8db003113dd88b5fe
parent139edb74aa21328306f59014787dc0a3aebfdf8f (diff)
Don't fail on comment lines
Notes
Notes (review): Code-Review+1: Maksim Malchuk <mmalchuk@mirantis.com> Code-Review+1: Alex Schultz <aschultz@mirantis.com> Code-Review+2: Sergii Golovatiuk <sgolovatiuk@mirantis.com> Workflow+1: Sergii Golovatiuk <sgolovatiuk@mirantis.com> Verified+2: Jenkins Submitted-by: Jenkins Submitted-at: Fri, 03 Jun 2016 09:02:29 +0000 Reviewed-on: https://review.openstack.org/324417 Project: openstack/fuel-main Branch: refs/heads/master
-rw-r--r--packages/deb/genpkgnames.pl8
1 files changed, 7 insertions, 1 deletions
diff --git a/packages/deb/genpkgnames.pl b/packages/deb/genpkgnames.pl
index 3fab5a1..f8ba681 100644
--- a/packages/deb/genpkgnames.pl
+++ b/packages/deb/genpkgnames.pl
@@ -1,7 +1,13 @@
1use Parse::DebControl; 1use Parse::DebControl;
2 2
3$parser = new Parse::DebControl; 3$parser = new Parse::DebControl;
4 $data = $parser->parse_file($ARGV[0]); 4
5%options = (
6 type => 'debian/control',
7 stripComments => 'true',
8 );
9
10 $data = $parser->parse_file($ARGV[0], \%options);
5 foreach my $a (@$data) { 11 foreach my $a (@$data) {
6 next if exists $a->{"Source"}; 12 next if exists $a->{"Source"};
7 print ${a}->{"Package"}."\n"; 13 print ${a}->{"Package"}."\n";