moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-08-13 17:03:50 -04:00
Code Issues Releases Wiki Activity

Match file times occurring in the morning.

Browse Source
This commit is contained in:
Dan Fandrich 2007-05-16 17:45:53 +00:00
parent 3fef839f75
commit 09fd3b4935
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/libtest/test613.pl
View File

@ -60,19 +60,19 @@ elsif ($ARGV[0] eq "postprocess")
# or may be unsupported on some platforms (e.g. Windows) # or may be unsupported on some platforms (e.g. Windows)
my $newfile = $logfile . ".new"; my $newfile = $logfile . ".new";
open(OUT, ">$newfile") || die "$!";
open(IN, "<$logfile") || die "$!"; open(IN, "<$logfile") || die "$!";
open(OUT, ">$newfile") || die "$!";
while (<IN>) { while (<IN>) {
s/^(.)(..).(..).(..).(.{4}?).{6}?.{6}?(.{12}?)/\1\2?\3?\4?\5 U U\6/; s/^(.)(..).(..).(..).(.{4}?).{6}?.{6}?(.{12}?)/\1\2?\3?\4?\5 U U\6/;
if ($1 eq "d") { if ($1 eq "d") {
# Erase inodes, size, mode, time fields for directories # 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 $_; print OUT $_;
} }
close(IN);
close(OUT); close(OUT);
close(IN);
unlink $logfile; unlink $logfile;
rename $newfile, $logfile; rename $newfile, $logfile;