|
|
@ -2,7 +2,7 @@ package metadata; |
|
|
|
use base 'Exporter'; |
|
|
|
use base 'Exporter'; |
|
|
|
use strict; |
|
|
|
use strict; |
|
|
|
use warnings; |
|
|
|
use warnings; |
|
|
|
our @EXPORT = qw(%package %srcpackage %category %subdir %preconfig %features %overrides clear_packages parse_package_metadata parse_target_metadata get_multiline); |
|
|
|
our @EXPORT = qw(%package %srcpackage %category %subdir %preconfig %features %overrides clear_packages parse_package_metadata parse_target_metadata get_multiline @ignore); |
|
|
|
|
|
|
|
|
|
|
|
our %package; |
|
|
|
our %package; |
|
|
|
our %preconfig; |
|
|
|
our %preconfig; |
|
|
@ -11,6 +11,7 @@ our %category; |
|
|
|
our %subdir; |
|
|
|
our %subdir; |
|
|
|
our %features; |
|
|
|
our %features; |
|
|
|
our %overrides; |
|
|
|
our %overrides; |
|
|
|
|
|
|
|
our @ignore; |
|
|
|
|
|
|
|
|
|
|
|
sub get_multiline { |
|
|
|
sub get_multiline { |
|
|
|
my $fh = shift; |
|
|
|
my $fh = shift; |
|
|
@ -130,6 +131,7 @@ sub parse_package_metadata($) { |
|
|
|
my $subdir; |
|
|
|
my $subdir; |
|
|
|
my $src; |
|
|
|
my $src; |
|
|
|
my $override; |
|
|
|
my $override; |
|
|
|
|
|
|
|
my %ignore = map { $_ => 1 } @ignore; |
|
|
|
|
|
|
|
|
|
|
|
open FILE, "<$file" or do { |
|
|
|
open FILE, "<$file" or do { |
|
|
|
warn "Cannot open '$file': $!\n"; |
|
|
|
warn "Cannot open '$file': $!\n"; |
|
|
@ -152,6 +154,7 @@ sub parse_package_metadata($) { |
|
|
|
$overrides{$src} = 1; |
|
|
|
$overrides{$src} = 1; |
|
|
|
}; |
|
|
|
}; |
|
|
|
next unless $src; |
|
|
|
next unless $src; |
|
|
|
|
|
|
|
next if $ignore{$src}; |
|
|
|
/^Package:\s*(.+?)\s*$/ and do { |
|
|
|
/^Package:\s*(.+?)\s*$/ and do { |
|
|
|
undef $feature; |
|
|
|
undef $feature; |
|
|
|
$pkg = {}; |
|
|
|
$pkg = {}; |
|
|
|