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 | |
| 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')
| -rw-r--r-- | src/SVG/SVG2zinc.pm | 8 | ||||
| -rw-r--r-- | src/SVG/SVG2zinc/Backend/PerlClass.pm | 2 |
2 files changed, 6 insertions, 4 deletions
diff --git a/src/SVG/SVG2zinc.pm b/src/SVG/SVG2zinc.pm index 31e4559..fb82c2b 100644 --- a/src/SVG/SVG2zinc.pm +++ b/src/SVG/SVG2zinc.pm @@ -1416,9 +1416,11 @@ sub polygon_ { sub path { my ($parser, $elementname, %attrs) = @_; push (@nameStack, $attrs{id}); - if($attrs{id} eq $targetName) - { - $includeFollowingItems = 1; + if (defined $attrs{id}) { + if($attrs{id} eq $targetName) + { + $includeFollowingItems = 1; + } } if( !$includeFollowingItems ) { 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); |