Match file times occurring in the morning.

diff --git a/tests/libtest/test613.pl b/tests/libtest/test613.pl
index 282cf379195962ecb739b64019ab0e6032f18a7b..749763d4ecd06bd856e743bedecb81ad8b33f00f 100755 (executable)
--- 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;