--- 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;