From 005d64f7da73a13c7ad92e5c936265c4eb3ab71b Mon Sep 17 00:00:00 2001
From: ribet
Date: Mon, 27 Aug 2007 15:06:00 +0000
Subject: Suppression du message "my" variable $x2 masks earlier declaration in
 same scope at AUTOGEN/... Merci Romain pour le fix.

---
 src/SVG/SVG2zinc/Backend/PerlClass.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/SVG/SVG2zinc/Backend/PerlClass.pm')

diff --git a/src/SVG/SVG2zinc/Backend/PerlClass.pm b/src/SVG/SVG2zinc/Backend/PerlClass.pm
index 18ec454..7b0df4d 100644
--- a/src/SVG/SVG2zinc/Backend/PerlClass.pm
+++ b/src/SVG/SVG2zinc/Backend/PerlClass.pm
@@ -186,7 +186,7 @@ HEADER
 sub fileTail {
     my ($self) = @_;
     $self->comment ("", "Tail of SVG2zinc::Backend::PerlScript", "");
-    unshift (@{$self -> {delayed_lines}}, '$self -> {instance} = $previous = ');
+    unshift (@{$self -> {delayed_lines}}, 'my $ascent = undef;'."\n".'$self -> {instance} = $previous = ');
     $self -> printLines(@{$self -> {delayed_lines}});
     $self -> printLines(
 <<'TAIL'
-- 
cgit v1.1