From 4d47d8cc6b7b964147199479fbe5b3cc01f2cc6e Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 4 Nov 2004 08:54:11 +0000
Subject: Ensure that we load only perl modules (used for debugging)

---
 urpm.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit v1.2.1