From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 10 Feb 2016 01:50:12 +0000 (+0000)
Subject: commitid: in Small with commitid, show start rather than end of commitid
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=a5961eb9e6773583860d8bb196ca9a0db9582bdd;p=reprap-play.git

commitid: in Small with commitid, show start rather than end of commitid
---

diff --git a/commitid.scad.pl b/commitid.scad.pl
index 983a4ab..35bc341 100755
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -538,11 +538,11 @@ sub do_git () {
 
 	if (defined($git_count)) {
 	    my $smallstr = rjustt($sz, $git_count, $git_dirty);
-	    if (defined($git_object) && $sz >= length($git_count) + 3) {
-		$smallstr = $git_object;
-		$smallstr .= ($git_dirty || ' ');
-		$smallstr .= $git_count;
-		$smallstr = rjustt($sz, $smallstr);
+	    my $forgitobj = $sz - length($git_count) - 1;
+	    if (defined($git_object) && $forgitobj >= 2) {
+		$smallstr = rjustt($forgitobj, $git_object).
+		    ($git_dirty || ' ').
+		    $git_count;
 	    }
 	    genform_plusq("Small$sz", $smallstr);
 	}