diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/FBox.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/FBox.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/FBox.pm b/Master/tlpkg/tlperl/lib/Tk/FBox.pm index 3aa025fbe2c..ef867a7e097 100644 --- a/Master/tlpkg/tlperl/lib/Tk/FBox.pm +++ b/Master/tlpkg/tlperl/lib/Tk/FBox.pm @@ -559,7 +559,7 @@ sub ResolveFile { # If the file has no extension, append the default. Be careful not # to do this for directories, otherwise typing a dirname in the box # will give back "dirname.extension" instead of trying to change dir. - if (!-d $path && $path !~ /\..+$/s && defined $defaultext) { + if (!-d $path && $text !~ /\..+$/s && defined $defaultext) { $path = "$path$defaultext"; } # Cannot just test for existance here as non-existing files are |