From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 10 Dec 2001 01:21:03 +0000 (-0500)
Subject: Bad touch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5cff3c2c66ef8cc2f5047db74e6c7c1e3824feb5;p=p5sagit%2Fp5-mst-13.2.git

Bad touch
Message-ID: <20011210062103.GC1770@blackrider>

p4raw-id: //depot/perl@13599
---

diff --git a/lib/ExtUtils/Command.t b/lib/ExtUtils/Command.t
index 3a25bff..7115bea 100644
--- a/lib/ExtUtils/Command.t
+++ b/lib/ExtUtils/Command.t
@@ -85,10 +85,14 @@ BEGIN {
 
 	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' );