From 0310196e52c4fd43aa9347f6a57a7cd97db0da2c Mon Sep 17 00:00:00 2001 From: Michael Tremer Date: Wed, 7 Dec 2022 18:09:00 +0000 Subject: [PATCH] perl.req: Don't call perl.prov Signed-off-by: Michael Tremer --- src/scripts/perl.req | 24 ------------------------ 1 file changed, 24 deletions(-) diff --git a/src/scripts/perl.req b/src/scripts/perl.req index 493200108..907f3defe 100644 --- a/src/scripts/perl.req +++ b/src/scripts/perl.req @@ -32,18 +32,9 @@ unless ($BUILDROOT) { $HAVE_VERSION = 0; eval { require version; $HAVE_VERSION = 1; }; -use File::Basename; -my $dir = dirname($0); -$HAVE_PROV = 0; -if ( -e "$dir/perl.prov" ) { - $HAVE_PROV = 1; - $prov_script = "$dir/perl.prov"; -} - # Process the passed filelist foreach (<>) { process_file("${BUILDROOT}/$_"); - process_file_provides("${BUILDROOT}/$_"); compute_global_requires(); } @@ -386,18 +377,3 @@ sub process_file { return; } - -sub process_file_provides { - - my ($file) = @_; - chomp $file; - - return if (! $HAVE_PROV); - - $file =~ s/'/'"'"'/g; - my @result = readpipe( "$prov_script '$file'" ); - foreach my $prov (@result) { - $provide{$1} = undef if $prov =~ /perl\(([_:a-zA-Z0-9]+)\)/; - } - -} -- 2.39.5