summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/FBox.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/FBox.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/FBox.pm2
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