Avoid extra ZWSP

diff --git a/git-chart b/git-chart
index 09263cd..2896f55 100755 (executable)
--- a/git-chart
+++ b/git-chart
@@ -326,7 +326,7 @@ sub unicode_chart($;$) {
        my $from = $keys[0];
        my $to = $keys[@keys-1];
 
        my $from = $keys[0];
        my $to = $keys[@keys-1];
 

-       my $data = '';
+       my @data = ();

        while (my $key = shift @keys) {
                my $ncommits = $dataset->{$key}{_commits};
                my $char = chr(0xa0);
        while (my $key = shift @keys) {
                my $ncommits = $dataset->{$key}{_commits};
                my $char = chr(0xa0);


@@ -334,11 +334,11 @@ sub unicode_chart($;$) {
                        my $m = ceil(8*$ncommits/$max);
                        $char = chr(0x2580+$m);
                }
                        my $m = ceil(8*$ncommits/$max);
                        $char = chr(0x2580+$m);
                }

-               $data .= $char . $ZWSP;
+               push @data, $char;

        }
 
        binmode(STDOUT, ":encoding(UTF-8)");
        }
 
        binmode(STDOUT, ":encoding(UTF-8)");

-       print "$data\n";
+       print join($ZWSP, @data) . "\n";

 
        if ($to - $from > $steps{year}) {
                my $left = DateTime->from_epoch(epoch=>$from);
 
        if ($to - $from > $steps{year}) {
                my $left = DateTime->from_epoch(epoch=>$from);