Change 13599 by jhi@alpha on 2001/12/10 13:35:57
Subject: [PATCH lib/ExtUtils/Command.t] Bad touch
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Mon, 10 Dec 2001 01:21:03 -0500
Message-ID: <20011210062103.GC1770@blackrider>
Affected files ...
.... //depot/perl/lib/ExtUtils/Command.t#9 edit
Differences ...
==== //depot/perl/lib/ExtUtils/Command.t#9 (text) ====
Index: perl/lib/ExtUtils/Command.t
--- perl/lib/ExtUtils/Command.t.~1~ Mon Dec 10 06:45:06 2001
+++ perl/lib/ExtUtils/Command.t Mon Dec 10 06:45:06 2001
@@ -85,10 +85,14 @@
my ($now) = time;
utime ($now, $now, $ARGV[0]);
+ sleep 2;
# Just checking modify time stamp, access time stamp is set
- # to the beginning of the day in Win95
- is( (stat($ARGV[0]))[9], $now, 'checking modify time stamp' );
+ # to the beginning of the day in Win95.
+ # There's a small chance of a 1 second flutter here.
+ my $stamp = (stat($ARGV[0]))[9];
+ ok( abs($now - $stamp) <= 1, 'checking modify time stamp' ) ||
+ print "# mtime == $stamp, should be $now\n";
# change a file to read-only
@ARGV = ( 0600, 'ecmdfile' );
End of Patch.
