From: Nikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Date: Tue, 18 Sep 2001 21:59:24 +0000 (+0200)
Subject: stat access time is wrong on Win95
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fbac1b852fcf3582c3f503bc8fc35f05fd8b3bd3;p=p5sagit%2Fp5-mst-13.2.git

stat access time is wrong on Win95
Message-ID: <413158386.20010918215924@tesla.rcub.bg.ac.yu>

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

diff --git a/lib/ExtUtils/Command.pm b/lib/ExtUtils/Command.pm
index 5e78602..b7b41cd 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 d1522d3..01c0046 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