Don't fail on comment lines

blueprint: mos-xenial

Change-Id: I4e9a235956e5d08ab23a02ee52750e233da5f6d9
This commit is contained in:
dmburmistrov 2016-06-02 15:37:14 +03:00
parent 139edb74aa
commit 0486ff752f
1 changed files with 7 additions and 1 deletions

View File

@ -1,7 +1,13 @@
use Parse::DebControl;
$parser = new Parse::DebControl;
$data = $parser->parse_file($ARGV[0]);
%options = (
type => 'debian/control',
stripComments => 'true',
);
$data = $parser->parse_file($ARGV[0], \%options);
foreach my $a (@$data) {
next if exists $a->{"Source"};
print ${a}->{"Package"}."\n";