diff options
| author | Nikola Knezevic <indy@tesla.rcub.bg.ac.yu> | 2001-09-20 20:36:22 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-20 21:57:04 +0000 |
| commit | 851f5327e443379512e563e4bfcc645131e9b4ab (patch) | |
| tree | e32d160f1f77274884116eeb372b54948008fbd8 /lib/ExtUtils | |
| parent | a3167221c5c86fcb0d7f6497651ad0157ad5776e (diff) | |
| download | perl-851f5327e443379512e563e4bfcc645131e9b4ab.tar.gz | |
Command.t patch had some errors... sorry.
Message-ID: <549856591.20010920183622@tesla.rcub.bg.ac.yu>
p4raw-id: //depot/perl@12100
Diffstat (limited to 'lib/ExtUtils')
| -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' ); |