diff options
| author | Nikola Knezevic <indy@tesla.rcub.bg.ac.yu> | 2001-09-18 23:59:24 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-18 22:52:24 +0000 |
| commit | fbac1b852fcf3582c3f503bc8fc35f05fd8b3bd3 (patch) | |
| tree | 1eaca72ef136543c7aa2c40ff8b8abfc13d1c487 | |
| parent | 7b48dbf9833dd0173f81b50164ac3dfbf08c9c41 (diff) | |
| download | perl-fbac1b852fcf3582c3f503bc8fc35f05fd8b3bd3.tar.gz | |
stat access time is wrong on Win95
Message-ID: <413158386.20010918215924@tesla.rcub.bg.ac.yu>
p4raw-id: //depot/perl@12077
| -rw-r--r-- | lib/ExtUtils/Command.pm | 2 | ||||
| -rw-r--r-- | lib/ExtUtils/Command.t | 10 |
2 files changed, 5 insertions, 7 deletions
diff --git a/lib/ExtUtils/Command.pm b/lib/ExtUtils/Command.pm index 5e786025b1..b7b41cd7ce 100644 --- a/lib/ExtUtils/Command.pm +++ b/lib/ExtUtils/Command.pm @@ -108,8 +108,8 @@ Makes files exist, with current timestamp sub touch { - expand_wildcards(); my $t = time; + expand_wildcards(); while (@ARGV) { my $file = shift(@ARGV); diff --git a/lib/ExtUtils/Command.t b/lib/ExtUtils/Command.t index d1522d3ff5..01c0046bd0 100644 --- a/lib/ExtUtils/Command.t +++ b/lib/ExtUtils/Command.t @@ -9,7 +9,7 @@ BEGIN { File::Path::rmtree( 'ecmddir' ); } -use Test::More tests => 22; +use Test::More tests => 21; use File::Spec; SKIP: { @@ -63,6 +63,7 @@ SKIP: { # these are destructive, have to keep setting @ARGV @ARGV = ( 'ecmdfile' ); + my $now = time; touch(); @ARGV = ( 'ecmdfile' ); @@ -71,11 +72,8 @@ SKIP: { @ARGV = ( 'ecmdfile' ); ok( -e $ARGV[0], 'created!' ); - # use utime to set the timestamps - $ARGV[1] = (my $now = time); - utime(); - - is( (stat($ARGV[0]))[8], $now, 'checking access time stamp' ); + # 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' ); # change a file to read-only |