From 6fa90611b7402ce0231368af67528fdab6419250 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 16 Mar 2006 14:19:14 +0000
Subject: Don't search perl files for provides if they don't end with .pm
 (because if they don't, the perl interpreter won't look them up in @INC)

---
 perl.prov | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl.prov b/perl.prov
index 6b6774a..68ff2c8 100755
--- a/perl.prov
+++ b/perl.prov
@@ -47,6 +47,7 @@
 
 if ("@ARGV") {
   foreach (@ARGV) {
+    next if !/\.pm$/;
     process_file($_);
   }
 } else {
@@ -56,6 +57,7 @@ if ("@ARGV") {
 
   foreach (<>) {
     chomp $_;
+    next if !/\.pm$/;
     process_file($_) if -f $_;
   }
 }
-- 
cgit v1.2.1