From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: development@lists.ipfire.org Subject: [PATCH 1/2] perl.req: Allow filtering the found requirements. Date: Wed, 28 Dec 2022 21:41:35 +0100 Message-ID: <20221228204136.391950-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============4317248412734934035==" List-Id: --===============4317248412734934035== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 7bit The filter mechanism easy can be used by adding something like the following example in the corresponding nm file. export FILTER_PERL_REQUIRES = \ Some::Module \ Example:: \ abc Signed-off-by: Stefan Schantl --- src/scripts/perl.req | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/scripts/perl.req b/src/scripts/perl.req index 29bde1f2..5a5a54e1 100644 --- a/src/scripts/perl.req +++ b/src/scripts/perl.req @@ -20,6 +20,8 @@ # then these are treated as additional names which are required by the # file and are printed as well. +my @filter = split(/ /, $ENV{'FILTER_PERL_REQUIRES'}); + my $BUILDROOT = shift; # Check if BUILDROOT is set @@ -45,6 +47,8 @@ foreach my $perlver (sort keys %perlreq) { } foreach my $module (sort keys %global_require) { + next if (&is_filtered($module)); + if (length($global_require{$module}) == 0) { print "perl($module)\n"; @@ -388,3 +392,11 @@ sub process_file { return; } + +sub is_filtered($) { + my ($module) = @_; + + foreach my $item (@filter) { + return 1 if (index($module, $item) != -1); + } +} -- 2.30.2 --===============4317248412734934035==--