From 899e6d15aabe4c4eb130bff0492a2c53c25fc31f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 30 Mar 2004 11:52:44 +0000
Subject: fix relative file names (mostly (only?) for debugging)

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

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index a68acd4c1..1e3abdbaa 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -581,7 +581,7 @@ sub create_hpaned {
 sub _find_imgfile {
     my ($name) = @_;
 
-    if ($name =~ m|^/|) {
+    if ($name =~ m|/| && -f $name) {
 	$name;
     } else {
 	foreach my $path (icon_paths()) {
-- 
cgit v1.2.1