From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 5 Feb 2016 19:08:40 +0000 (+0000)
Subject: commitid.scad.pl: put dirty marker to lh of cout
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=d303b378e689adb3c2448c9fe81f7e218188675b

commitid.scad.pl: put dirty marker to lh of cout
---

diff --git a/commitid.scad.pl b/commitid.scad.pl
index 83e3afe..de57166 100755
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -361,7 +361,7 @@ sub do_git () {
     foreach my $sz (3..10) {
 	gentextmodule_demo_start_batch($sz-3);
 
-	gentextmodule_plusq("Small$sz", rjustt($sz, $git_count.$git_dirty))
+	gentextmodule_plusq("Small$sz", rjustt($sz, $git_count, $git_dirty))
 	    if defined $git_count;
 
 	gentextmodule_plusq("Git$sz", ljustt($sz, $git_object, $git_dirty))
@@ -369,8 +369,8 @@ sub do_git () {
 
 	if (defined $git_count && defined $git_object) {
 	    gentextmodule("Full$sz",
-			  ljustt($sz, $git_object, ''),
-			  rjustt($sz, $git_count.$git_dirty));
+			  ljustt($sz, $git_object),
+			  rjustt($sz, $git_count, $git_dirty));
 
 	    if (!($sz % 2)) {
 		my $e = $sz/2;