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 4932001080b071c75ab2f940558e2a0015210e08..907f3defe80c7fee68ab746d7300a902a7d67752 100644 (file)
--- 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]+)\)/;
-  }
-
-}