From 09fd3b4935afbc6e2b564ebedb5758fed6acfa12 Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Wed, 16 May 2007 17:45:53 +0000
Subject: [PATCH] Match file times occurring in the morning.

---
 tests/libtest/test613.pl | 6 +++---
 1 file 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;