Don't fail on comment lines
blueprint: mos-xenial Change-Id: I4e9a235956e5d08ab23a02ee52750e233da5f6d9
This commit is contained in:
parent
139edb74aa
commit
0486ff752f
|
@ -1,7 +1,13 @@
|
||||||
use Parse::DebControl;
|
use Parse::DebControl;
|
||||||
|
|
||||||
$parser = new 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) {
|
foreach my $a (@$data) {
|
||||||
next if exists $a->{"Source"};
|
next if exists $a->{"Source"};
|
||||||
print ${a}->{"Package"}."\n";
|
print ${a}->{"Package"}."\n";
|
||||||
|
|
Loading…
Reference in New Issue