diff options
| author | ribet | 2007-08-27 15:06:00 +0000 |
|---|---|---|
| committer | ribet | 2007-08-27 15:06:00 +0000 |
| commit | 005d64f7da73a13c7ad92e5c936265c4eb3ab71b (patch) | |
| tree | 05b8d489fc0a712b38f38b8e0de7474039fb2afe | |
| parent | 3abc97daefb12ce2141883b2e40c8d50e925efe8 (diff) | |
| download | mtc-005d64f7da73a13c7ad92e5c936265c4eb3ab71b.zip mtc-005d64f7da73a13c7ad92e5c936265c4eb3ab71b.tar.gz mtc-005d64f7da73a13c7ad92e5c936265c4eb3ab71b.tar.bz2 mtc-005d64f7da73a13c7ad92e5c936265c4eb3ab71b.tar.xz | |
Suppression du message "my" variable $x2 masks earlier declaration in same scope at AUTOGEN/...
Merci Romain pour le fix.
| -rw-r--r-- | src/SVG/SVG2zinc.pm | 2 | ||||
| -rw-r--r-- | 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' |