From 2e4df05af0308bfa4356010cbb67201690fcb64b Mon Sep 17 00:00:00 2001
From: ribet
Date: Tue, 15 Dec 2009 13:27:52 +0000
Subject: Correction d'un bug avec les polyline.

---
 src/SVG/SVG2zinc.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/SVG')

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";
-- 
cgit v1.1