--- SVG.pm	2006-05-26 08:13:14.000000000 -0400
+++ /usr/local/share/perl/5.8.8/GD/SVG.pm	2008-07-26 07:51:50.000000000 -0400
@@ -486,6 +486,8 @@
     ###GD### $self->{gd}->line($x1,$y1,$x2,$y2,$color_index);
     my ($img,$id) = $self->_prep($x1,$y1);
     my $style = $self->_build_style($id,$color_index,$color_index);
+       $style->{'stroke-linecap'} = 'square';
+
     my $result = $img->line(x1=>$x1,y1=>$y1,
 			    x2=>$x2,y2=>$y2,
 			    id=>$id,