diff options
| author | ribet | 2009-12-15 13:27:52 +0000 |
|---|---|---|
| committer | ribet | 2009-12-15 13:27:52 +0000 |
| commit | 2e4df05af0308bfa4356010cbb67201690fcb64b (patch) | |
| tree | db13d359c516c1092cbe9fa0c016a05014692a8d /src/SVG/SVG2zinc.pm | |
| parent | 90d6d31a7e053579f584c3fbc2491dcacdde7855 (diff) | |
| download | mtc-2e4df05af0308bfa4356010cbb67201690fcb64b.zip mtc-2e4df05af0308bfa4356010cbb67201690fcb64b.tar.gz mtc-2e4df05af0308bfa4356010cbb67201690fcb64b.tar.bz2 mtc-2e4df05af0308bfa4356010cbb67201690fcb64b.tar.xz | |
Correction d'un bug avec les polyline.
Diffstat (limited to 'src/SVG/SVG2zinc.pm')
| -rw-r--r-- | src/SVG/SVG2zinc.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/SVG/SVG2zinc.pm b/src/SVG/SVG2zinc.pm index 09d577b..54126fe 100644 --- a/src/SVG/SVG2zinc.pm +++ b/src/SVG/SVG2zinc.pm @@ -1210,7 +1210,7 @@ sub polyline { } %attrs = &expandAttributes ($elementname,%attrs); my ($name,$natural) = &name ($elementname, $attrs{id}); - my $res = printFindKey ($name)."\$previous ->add('curve',$current_group,[" . &points(\%attrs); + my $res = printFindKey ($name)."\$previous = ->add('curve',$current_group,[" . &points(\%attrs); $res .= "]"; $res .= ", -tags => ['polyline',$name]" if ($natural or $attrs{transform}); $res .= ", -priority => 10"; |