diff options
author | etienne | 2005-05-12 15:51:12 +0000 |
---|---|---|
committer | etienne | 2005-05-12 15:51:12 +0000 |
commit | 7acf605cd22c4a6ce9cc1fa057169c8570f84b67 (patch) | |
tree | b14108d97c0b5b0ae4d03ceaca3182802ca8988c | |
parent | 14e4f080fa4ef180b44124ca67f925a96c5ed074 (diff) | |
download | tkzinc-7acf605cd22c4a6ce9cc1fa057169c8570f84b67.zip tkzinc-7acf605cd22c4a6ce9cc1fa057169c8570f84b67.tar.gz tkzinc-7acf605cd22c4a6ce9cc1fa057169c8570f84b67.tar.bz2 tkzinc-7acf605cd22c4a6ce9cc1fa057169c8570f84b67.tar.xz |
variable $width masked earlier declaration in same scope
-rw-r--r-- | Perl/Zinc/Debug.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index 6d4758c..71a4d18 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -2746,7 +2746,7 @@ sub entrytransfo { $e = $fm->Entry(-textvariable => $var); &entryballoonhelp($e); $i0 = 0; - my $width = length($def); + $width = length($def) unless $width; $e->configure(-width => $width); $e->insert($i0, $def); $e->bind('<Control-z>', sub { |