Avoid extra ZWSP master
authorGiuseppe Bilotta <giuseppe.bilotta@gmail.com>
Sat, 14 Sep 2024 14:18:31 +0000 (16:18 +0200)
committerGiuseppe Bilotta <giuseppe.bilotta@gmail.com>
Sat, 14 Sep 2024 14:18:31 +0000 (16:18 +0200)
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 $data = '';
+       my @data = ();
        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);
                }
-               $data .= $char . $ZWSP;
+               push @data, $char;
        }
 
        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);