From 8e769e8f22d430f90e7e639f9a6f93ef8ddc9704 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 17 Mar 2004 09:36:30 +0000
Subject: (_find_imgfile) prevent matching subdirectory (eg: harddrake)

---
 perl-install/ugtk2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 3ca2a22bc..64b6fec79 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -582,7 +582,7 @@ sub _find_imgfile {
     @extensions or @extensions = qw(.png .xpm);
     if ($f !~ m|^/|) {
 	foreach my $path (icon_paths()) {
-	    -e "$path/$f$_" and $f = "$path/$f$_" foreach '', @extensions;
+	    -f "$path/$f$_" and $f = "$path/$f$_" foreach '', @extensions;
 	}
     }
     return $f;
-- 
cgit v1.2.1