diff options
Diffstat (limited to 'src/SVG/SVG2zinc/Backend')
| -rw-r--r-- | src/SVG/SVG2zinc/Backend/PerlClass.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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' |