From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 5 Feb 2016 23:32:32 +0000 (+0000)
Subject: commitid: print something to stderr
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=6e733510883fd759062729bb3562be026c08f0bb

commitid: print something to stderr
---

diff --git a/commitid.scad.pl b/commitid.scad.pl
index c213916..e59e4d2 100755
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -507,6 +507,8 @@ sub do_git () {
     if ($do_git =~ m/o/) {
 	$git_object = gitoutput qw(rev-parse HEAD);
     }
+    print STDERR join ' ', map { $_ // '?' }
+	"-- commitid", $git_object, $git_dirty, $git_count, "--\n";
 
     foreach my $sz (2..10) {
 	gentextmodule_demo_start_batch();