bin/update-serial
changeset 117 3b9250983996
parent 116 0e966f19a616
child 118 775e4fdbe250
--- a/bin/update-serial	Fri May 27 10:16:02 2011 +0200
+++ b/bin/update-serial	Fri May 27 13:13:38 2011 +0200
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #    Copyright (C) 2011 Matthias Förste
-#    Copyright (C) 2010,2011 Heiko Schlittermann
+#    Copyright (C) 2010, 2011 Heiko Schlittermann
 #    Copyright (C) 2010 Andre Süß
 #
 #    This program is free software: you can redistribute it and/or modify
@@ -145,12 +145,12 @@
             next;
         }
 
-        my $stamp_mtime = (stat _)[8];
-        my $stamp_mtime2 = (stat "$_/.stamp")[8];
-        my $zone_file_mtime  = (stat "$_/$zone")[8] or die "Can't stat '$_/$zone': $!";
+        my $stamp_mtime = (stat _)[9];
+        my $stamp_mtime2 = (stat "$_/.stamp")[9];
+        my $zone_file_mtime  = (stat "$_/$zone")[9] or die "Can't stat '$_/$zone': $!";
         # TODO: do this here?
         my $kc_file_mtime = 0;
-        $kc_file_mtime = (stat "$_/.keycounter")[8] or die "Can't stat '$_/.keycounter': $!" if -f "$_/.keycounter";
+        $kc_file_mtime = (stat "$_/.keycounter")[9] or die "Can't stat '$_/.keycounter': $!" if -f "$_/.keycounter";
 #        say "XXX: zone: $zone | stamp_mtime: $stamp_mtime| stamp_mtime2: $stamp_mtime2 | zone_file_mtime: $zone_file_mtime | kc_file_mtime: $kc_file_mtime";
 
         next unless $stamp_mtime < $zone_file_mtime or $stamp_mtime < $kc_file_mtime;