commitid-layering-test: get commitid right way round

[reprap-play.git] / commitid.scad.pl

diff --git a/commitid.scad.pl b/commitid.scad.pl
index 1ee20e8b84440c66cb0cc5b5e2ce17a8108276d7..6a4aa1f382eff1a8afc00c36687b087d9d03f760 100755 (executable)
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -220,6 +220,32 @@
 #
 
 
+# COPYRIGHT, LICENCE AND LACK-OF-WARRANTY INFORMATION
+# ===================================================
+#
+# This program is Free Software and a Free Cultural Work.
+#
+#   You can redistribute it and/or modify it under the terms of the
+#   GNU General Public License as published by the Free Software
+#   Foundation, either version 3 of the License, or (at your option)
+#   any later version.
+#
+#   This program is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#   GNU General Public License for more details.
+#
+#   You should have received a copy of the GNU General Public License
+#   along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#
+# Alternatively, at your option:
+#
+#   This work is licensed under the Creative Commons
+#   Attribution-ShareAlike 4.0 International License.
+#
+#   There is NO WARRANTY.
+
+
 use strict;
 
 $SIG{__WARN__} = sub { die @_; };
@@ -481,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();
@@ -632,7 +660,7 @@ R 20 22 02
 
 0 1 2 3 4 5 6 7 8 9
 
-/#\  r  /#\ ##\ # # ### //  ### /#\ /#\
+/#\  r  /#\ ##\ # # ### /#/ ### /#\ /#\
 # # /#    #   # # # #   #     # # # # #
 # #  #  /#/ ##< \## ##\ ##\  // >#< \##
 # #  #  #     #   #   # # #  #  # #   #