PERFORCE change 12077 for review

[Jarkko Hietaniemi]

Change 12077 by jhi@alpha on 2001/09/18 22:52:24

        Subject: stat access time is wrong on Win95
        From: Nikola Knezevic <[EMAIL PROTECTED]>
        Date: Tue, 18 Sep 2001 21:59:24 +0200
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/ExtUtils/Command.pm#13 edit
... //depot/perl/lib/ExtUtils/Command.t#2 edit

Differences ...

==== //depot/perl/lib/ExtUtils/Command.pm#13 (text) ====
Index: perl/lib/ExtUtils/Command.pm
--- perl/lib/ExtUtils/Command.pm.~1~    Tue Sep 18 17:00:06 2001
+++ perl/lib/ExtUtils/Command.pm        Tue Sep 18 17:00:06 2001
@@ -108,8 +108,8 @@
 
 sub touch
 {
+ my $t    = time;
  expand_wildcards();
- my $t    = time;
  while (@ARGV)
   {
    my $file = shift(@ARGV);               

==== //depot/perl/lib/ExtUtils/Command.t#2 (text) ====
Index: perl/lib/ExtUtils/Command.t
--- perl/lib/ExtUtils/Command.t.~1~     Tue Sep 18 17:00:06 2001
+++ perl/lib/ExtUtils/Command.t Tue Sep 18 17:00:06 2001
@@ -9,7 +9,7 @@
        File::Path::rmtree( 'ecmddir' );
 }
 
-use Test::More tests => 22;
+use Test::More tests => 21;
 use File::Spec;
 
 SKIP: {
@@ -63,6 +63,7 @@
 
        # these are destructive, have to keep setting @ARGV
        @ARGV = ( 'ecmdfile' );
+        my $now = time;
        touch();
 
        @ARGV = ( 'ecmdfile' );
@@ -71,11 +72,8 @@
        @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
End of Patch.