diff options
| author | saal | 2007-06-05 08:36:47 +0000 |
|---|---|---|
| committer | saal | 2007-06-05 08:36:47 +0000 |
| commit | 676c765bdb6a5d4844d11806bdc86f2a38f7047e (patch) | |
| tree | a1f2a8f221ba08b5f5ecb330775ec5ba4eeffba0 /src/SVG/SVG2zinc/Backend/PerlClass.pm | |
| parent | a23de8ad848853f772e934c9df7ece9ad2226ee8 (diff) | |
| download | mtc-676c765bdb6a5d4844d11806bdc86f2a38f7047e.zip mtc-676c765bdb6a5d4844d11806bdc86f2a38f7047e.tar.gz mtc-676c765bdb6a5d4844d11806bdc86f2a38f7047e.tar.bz2 mtc-676c765bdb6a5d4844d11806bdc86f2a38f7047e.tar.xz | |
suppression de warning
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); |