From: Giuseppe Bilotta <giuseppe.bilotta@gmail.com>
Date: Sat, 14 Sep 2024 14:18:31 +0000 (+0200)
Subject: Avoid extra ZWSP
X-Git-Url: http://git.oblomov.eu/git-chart/commitdiff_plain

Avoid extra ZWSP
---

diff --git a/git-chart b/git-chart
index 09263cd..2896f55 100755
--- 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);