aboutsummaryrefslogtreecommitdiffstats
path: root/perl.prov
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2006-03-16 14:19:14 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2006-03-16 14:19:14 +0000
commit6fa90611b7402ce0231368af67528fdab6419250 (patch)
tree65ce12058c506591687c627d9081e875a371891f /perl.prov
parenta65d42610d519ecbf2b49068c336f7e7cb9f1554 (diff)
downloadrpm-setup-6fa90611b7402ce0231368af67528fdab6419250.tar
rpm-setup-6fa90611b7402ce0231368af67528fdab6419250.tar.gz
rpm-setup-6fa90611b7402ce0231368af67528fdab6419250.tar.bz2
rpm-setup-6fa90611b7402ce0231368af67528fdab6419250.tar.xz
rpm-setup-6fa90611b7402ce0231368af67528fdab6419250.zip
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)
Diffstat (limited to 'perl.prov')
-rwxr-xr-xperl.prov2
1 files changed, 2 insertions, 0 deletions
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 $_;
}
}