Push the atime and mtime of generated Makefile.PLs back 4 seconds in make_ext.pl
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 27 Jun 2011 20:08:14 +0000 (21:08 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 27 Jun 2011 20:08:14 +0000 (21:08 +0100)
In certain circumstances ( on virtual machines ) the generated Makefile.PL can
produce a Makefile that is older than the Makefile.PL

Altering the atime and mtime backwards by 4 seconds seems to resolve the issue.

make_ext.pl

index 13f892a..6425e37 100644 (file)
@@ -377,6 +377,10 @@ WriteMakefile(
 EOM
            close $fh or die "Can't close Makefile.PL: $!";
        }
+  eval {
+    my $ftime = time - 4;
+    utime $ftime, $ftime, 'Makefile.PL';
+  };
        print "\nRunning Makefile.PL in $ext_dir\n";
 
        # Presumably this can be simplified
@@ -388,7 +392,7 @@ EOM
            # Inherited from make_ext.pl
            @cross = '-MCross';
        }
-           
+
        my @args = ("-I$lib_dir", @cross, 'Makefile.PL');
        if ($is_VMS) {
            my $libd = VMS::Filespec::vmspath($lib_dir);