diff options
Diffstat (limited to 'lib/ExtUtils/Command.t')
| -rw-r--r-- | lib/ExtUtils/Command.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/ExtUtils/Command.t b/lib/ExtUtils/Command.t index 7fdaf2d12b..7596e75588 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' ); |