gitzone

commit b56caabfec9f397dcad431713445a6fec9340b20
parent a10ec80780ca93f9d41212b0c2037b93ed83a2a8
Author: tg(x) <*@tg-x.net>
Date:   Fri,  4 Feb 2011 12:13:40 +0100

serial date inc fix

Diffstat:
M
bin/gitzone
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/bin/gitzone b/bin/gitzone
@@ -79,10 +79,10 @@ sub process_file {
     my $line = $_;
     if (/^(.*)(\b\d+\b)(.*?;AUTO_INCREMENT\b.*)$/) {
       # increment serial where marked with ;AUTO_INCREMENT
-      # if length of serial is 8 and starts with 20 treat it as a date
+      # if length of serial is 10 and starts with 20 treat it as a date
       my ($a,$s,$z) = ($1,int $2,$3);
       $date ||= strftime '%Y%m%d', localtime;
-      $s = ($s =~ /^$date/ || $s < 20000000 || $s >= 21000000) ? $s + 1 : $date.'00';
+      $s = ($s =~ /^$date/ || $s < 2000000000 || $s >= 2100000000) ? $s + 1 : $date.'00';
       $line = "$a$s$z\n";
       $changed = 1;
     } elsif (/^(\W*\$INCLUDE\W+)(\S+)(.*)$/) {