diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-03-30 11:52:44 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-03-30 11:52:44 +0000 |
commit | 899e6d15aabe4c4eb130bff0492a2c53c25fc31f (patch) | |
tree | 636930e8a2f1d1bf1f7fd88eda4507b8d05c4e85 /perl-install | |
parent | 3b571a3c036ef4c5e02a4f6b487e6d06d80fe312 (diff) | |
download | drakx-backup-do-not-use-899e6d15aabe4c4eb130bff0492a2c53c25fc31f.tar drakx-backup-do-not-use-899e6d15aabe4c4eb130bff0492a2c53c25fc31f.tar.gz drakx-backup-do-not-use-899e6d15aabe4c4eb130bff0492a2c53c25fc31f.tar.bz2 drakx-backup-do-not-use-899e6d15aabe4c4eb130bff0492a2c53c25fc31f.tar.xz drakx-backup-do-not-use-899e6d15aabe4c4eb130bff0492a2c53c25fc31f.zip |
fix relative file names (mostly (only?) for debugging)
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/ugtk2.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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()) { |