commitid.scad.pl: Generate up to size 10

diff --git a/commitid.scad.pl b/commitid.scad.pl
index ff3634175900102ebae8b90b1f0b5f7f80d12a02..c03b044133d763a3111083cdd1d0cbc653d0f326 100755 (executable)
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -58,6 +58,8 @@ $SIG{__WARN__} = sub { die @_; };
 #   Small6:
 #   Small7:
 #   Small8:
+#   Small9:
+#   Small10:
 #       git rev-list --first-parent --count HEAD
 #       typically 3-4 characters but we allow for up to 6
 #       padded with zeroes; if too long we reduce mod 10^n
@@ -68,7 +70,8 @@ $SIG{__WARN__} = sub { die @_; };
 #
 #   Small4Q:
 #   Small6Q:
-#   Small9Q:
+#   Small8Q:
+#   Small10Q:
 #       same but in two lines eg
 #            Small4Q  10
 #                     70
@@ -76,6 +79,7 @@ $SIG{__WARN__} = sub { die @_; };
 #   Git4   Git4Q
 #   Git6   Git6Q
 #   Git8   Git8Q
+#   Git10  Git10Q
 #       git-rev-parse HEAD   (prefix of requested length)
 #       eg
 #            Git6    82f2a2
@@ -306,7 +310,7 @@ sub do_git () {
        $git_object = gitoutput qw(rev-parse HEAD);
     }
 
-    foreach my $sz (3..8) {
+    foreach my $sz (3..10) {
        gentextmodule_plusq("Small$sz", rjustt($sz, $git_count.$git_dirty))
            if defined $git_count;