projects
/
openwrt
/
openwrt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
scripts/metadata.pl: add support for ignoring source packages when generating metadata
[openwrt/openwrt.git]
/
scripts
/
metadata.pm
diff --git
a/scripts/metadata.pm
b/scripts/metadata.pm
index 09273df3ad543e2001c392d26144637f72a6fa8b..0ed3524e8175ecfc6f8e0a16cd13c4e57aaa3d04 100644
(file)
--- a/
scripts/metadata.pm
+++ b/
scripts/metadata.pm
@@
-2,7
+2,7
@@
package metadata;
use base 'Exporter';
use strict;
use warnings;
use base 'Exporter';
use strict;
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 %preconfig;
our %package;
our %preconfig;
@@
-11,6
+11,7
@@
our %category;
our %subdir;
our %features;
our %overrides;
our %subdir;
our %features;
our %overrides;
+our @ignore;
sub get_multiline {
my $fh = shift;
sub get_multiline {
my $fh = shift;
@@
-130,6
+131,7
@@
sub parse_package_metadata($) {
my $subdir;
my $src;
my $override;
my $subdir;
my $src;
my $override;
+ my %ignore = map { $_ => 1 } @ignore;
open FILE, "<$file" or do {
warn "Cannot open '$file': $!\n";
open FILE, "<$file" or do {
warn "Cannot open '$file': $!\n";
@@
-152,6
+154,7
@@
sub parse_package_metadata($) {
$overrides{$src} = 1;
};
next unless $src;
$overrides{$src} = 1;
};
next unless $src;
+ next if $ignore{$src};
/^Package:\s*(.+?)\s*$/ and do {
undef $feature;
$pkg = {};
/^Package:\s*(.+?)\s*$/ and do {
undef $feature;
$pkg = {};