summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-11-04 08:54:11 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-11-04 08:54:11 +0000
commit4d47d8cc6b7b964147199479fbe5b3cc01f2cc6e (patch)
treea530ba889ee7049f6301d03427f5dc37abae2833
parentaf5f76931cc84ccde06df0152f8a281ec4372980 (diff)
downloadurpmi-4d47d8cc6b7b964147199479fbe5b3cc01f2cc6e.tar
urpmi-4d47d8cc6b7b964147199479fbe5b3cc01f2cc6e.tar.gz
urpmi-4d47d8cc6b7b964147199479fbe5b3cc01f2cc6e.tar.bz2
urpmi-4d47d8cc6b7b964147199479fbe5b3cc01f2cc6e.tar.xz
urpmi-4d47d8cc6b7b964147199479fbe5b3cc01f2cc6e.zip
Ensure that we load only perl modules (used for debugging)
-rw-r--r--urpm.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/urpm.pm b/urpm.pm
index 4b4b91ab..b339c1ff 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -409,7 +409,7 @@ sub configure {
foreach my $dir (grep { -d $_ } map { "$_/urpm" } @INC) {
opendir my $dh, $dir or die $!;
while (defined ($_ = readdir $dh)) {
- -f "$dir/$_" or next;
+ /\.pm$/ && -f "$dir/$_" or next;
$urpm->{log}->(N("examining parallel handler in file [%s]", "$dir/$_"));
eval { require "$dir/$_"; $parallel_handler = $urpm->handle_parallel_options($parallel_options) };
$parallel_handler and last;