diff options
| author | Dan Fandrich <dan@coneharvesters.com> | 2007-05-16 17:45:53 +0000 |
|---|---|---|
| committer | Dan Fandrich <dan@coneharvesters.com> | 2007-05-16 17:45:53 +0000 |
| commit | 09fd3b4935afbc6e2b564ebedb5758fed6acfa12 (patch) | |
| tree | 613e0de4b874f4a145feac2bbeceba1a1def0f33 | |
| parent | 3fef839f7514eeeadd5b4574a533146aabc595c5 (diff) | |
Match file times occurring in the morning.
| -rwxr-xr-x | tests/libtest/test613.pl | 6 |
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; |