From: Michael Tremer <michael.tremer@ipfire.org>
Date: Wed, 7 Dec 2022 18:09:00 +0000 (+0000)
Subject: perl.req: Don't call perl.prov
X-Git-Tag: 0.9.28~35
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=0310196e52c4fd43aa9347f6a57a7cd97db0da2c;p=pakfire.git

perl.req: Don't call perl.prov

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
---

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]+)\)/;
-  }
-
-}