aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDan Fandrich <dan@coneharvesters.com>2007-05-16 17:45:53 +0000
committerDan Fandrich <dan@coneharvesters.com>2007-05-16 17:45:53 +0000
commit09fd3b4935afbc6e2b564ebedb5758fed6acfa12 (patch)
tree613e0de4b874f4a145feac2bbeceba1a1def0f33
parent3fef839f7514eeeadd5b4574a533146aabc595c5 (diff)
Match file times occurring in the morning.
-rwxr-xr-xtests/libtest/test613.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/libtest/test613.pl b/tests/libtest/test613.pl
index 282cf3791..749763d4e 100755
--- a/tests/libtest/test613.pl
+++ b/tests/libtest/test613.pl
@@ -60,19 +60,19 @@ elsif ($ARGV[0] eq "postprocess")
# or may be unsupported on some platforms (e.g. Windows)
my $newfile = $logfile . ".new";
- open(OUT, ">$newfile") || die "$!";
open(IN, "<$logfile") || die "$!";
+ open(OUT, ">$newfile") || die "$!";
while (<IN>) {
s/^(.)(..).(..).(..).(.{4}?).{6}?.{6}?(.{12}?)/\1\2?\3?\4?\5 U U\6/;
if ($1 eq "d") {
# Erase inodes, size, mode, time fields for directories
- s/^.{14}?(.{12}?).{11}? ... .\d \d\d:\d\d/d????????? N\1 N ??? N NN:NN/;
+ s/^.{14}?(.{12}?).{11}? ... .\d .\d:\d\d/d????????? N\1 N ??? N NN:NN/;
}
print OUT $_;
}
- close(IN);
close(OUT);
+ close(IN);
unlink $logfile;
rename $newfile, $logfile;