From 7acf605cd22c4a6ce9cc1fa057169c8570f84b67 Mon Sep 17 00:00:00 2001
From: etienne
Date: Thu, 12 May 2005 15:51:12 +0000
Subject: variable $width masked earlier declaration in same scope

---
 Perl/Zinc/Debug.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Perl')

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 {
-- 
cgit v1.1