equal
deleted
inserted
replaced
238 or die "Can't rename tmp to $file: $!\n"; |
238 or die "Can't rename tmp to $file: $!\n"; |
239 |
239 |
240 $serial =~ s/\s*//g; |
240 $serial =~ s/\s*//g; |
241 say " * $zone: serial incremented to $serial"; |
241 say " * $zone: serial incremented to $serial"; |
242 |
242 |
243 my ($atime, $utime) = (time) x 2; |
243 open(my $stamp, ">", dirname($file) . "/.stamp"); |
244 my $s = (dirname $file) . '/.stamp'; |
|
245 utime $atime, $utime, $s or die "Can't 'utime $atime, $utime, $s': $!"; |
|
246 |
244 |
247 say " * $zone: stamp aktualisiert"; |
245 say " * $zone: stamp aktualisiert"; |
248 # say " XXX $zone: stamp '$s' aktualisiert"; |
246 # say " XXX $zone: stamp '$s' aktualisiert"; |
249 } |
247 } |
250 |
248 |