diff options
Diffstat (limited to 'src/SVG/SVG2zinc/Backend/PerlClass.pm')
| -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 4819b62..0f490b2 100644 --- a/src/SVG/SVG2zinc/Backend/PerlClass.pm +++ b/src/SVG/SVG2zinc/Backend/PerlClass.pm @@ -107,7 +107,7 @@ sub dtreatLines { $l =~ s/(\W)->/$1\$_zinc-> /g; } - if (defined @lines) + if (@lines) { my $rule = shift (@lines); push (@{$self -> {delayed_lines}}, $rule); |