This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Command.t patch had some errors... sorry.
authorNikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Thu, 20 Sep 2001 18:36:22 +0000 (20:36 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 20 Sep 2001 21:57:04 +0000 (21:57 +0000)
Message-ID: <549856591.20010920183622@tesla.rcub.bg.ac.yu>

p4raw-id: //depot/perl@12100

lib/ExtUtils/Command.t

index 7fdaf2d..7596e75 100644 (file)
@@ -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' );