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.pm                   | 2 +-
 src/SVG/SVG2zinc/Backend/PerlClass.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/SVG/SVG2zinc.pm b/src/SVG/SVG2zinc.pm
index fb82c2b..6c33b6f 100644
--- a/src/SVG/SVG2zinc.pm
+++ b/src/SVG/SVG2zinc.pm
@@ -1173,7 +1173,7 @@ my %save_current_context = ();
 		{
 			push (@ascent, "->  translate(\$previous, $text_x, $text_y);");
 		}
-		push (@ascent, "my \$ascent = -> fontMetrics (\$fonts{\"$current_font_key\"}, -ascent);");
+		push (@ascent, "\$ascent = -> fontMetrics (\$fonts{\"$current_font_key\"}, -ascent);");
 		push (@ascent, "-> translate(\$previous,0, -\$ascent);");
 	
 		&ddisplay ($res, @ascent, @transforms);
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