diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-17 09:36:30 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-17 09:36:30 +0000 |
| commit | 8e769e8f22d430f90e7e639f9a6f93ef8ddc9704 (patch) | |
| tree | a3ee3c33a8fd25f4b6e17077d3cfaef5841a520a /perl-install | |
| parent | 95da3481af56693d1342a3af963b2e67b38288c0 (diff) | |
| download | drakx-8e769e8f22d430f90e7e639f9a6f93ef8ddc9704.tar drakx-8e769e8f22d430f90e7e639f9a6f93ef8ddc9704.tar.gz drakx-8e769e8f22d430f90e7e639f9a6f93ef8ddc9704.tar.bz2 drakx-8e769e8f22d430f90e7e639f9a6f93ef8ddc9704.tar.xz drakx-8e769e8f22d430f90e7e639f9a6f93ef8ddc9704.zip | |
(_find_imgfile) prevent matching subdirectory (eg: harddrake)
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 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; |