From: Nikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Date: Thu, 20 Sep 2001 18:36:22 +0000 (+0200)
Subject: Command.t patch had some errors... sorry.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=851f5327e443379512e563e4bfcc645131e9b4ab;p=p5sagit%2Fp5-mst-13.2.git

Command.t patch had some errors... sorry.
Message-ID: <549856591.20010920183622@tesla.rcub.bg.ac.yu>

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

diff --git a/lib/ExtUtils/Command.t b/lib/ExtUtils/Command.t
index 7fdaf2d..7596e75 100644
--- a/lib/ExtUtils/Command.t
+++ b/lib/ExtUtils/Command.t
@@ -64,7 +64,6 @@ SKIP: {
 
 	# these are destructive, have to keep setting @ARGV
 	@ARGV = ( 'ecmdfile' );
-        my $now = time;
 	touch();
 
 	@ARGV = ( 'ecmdfile' );
@@ -73,6 +72,9 @@ SKIP: {
 	@ARGV = ( 'ecmdfile' );
 	ok( -e $ARGV[0], 'created!' );
 
+	my ($now) = time;
+	utime ($now, $now, $ARGV[0]);
+
 	# 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' );