From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 5 Feb 2005 15:05:08 +0000 (+0000)
Subject: Let's (un)do the timewarp, again.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=558fa1e8b99b11f5445685a5adf1b526ab9c0803;p=p5sagit%2Fp5-mst-13.2.git

Let's (un)do the timewarp, again.
Attempt to bodge round Makefile sometimes being older than Makefile.PL
Pesky filesystems.

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

diff --git a/lib/ExtUtils/t/Constant.t b/lib/ExtUtils/t/Constant.t
index af63767..4a1657c 100644
--- a/lib/ExtUtils/t/Constant.t
+++ b/lib/ExtUtils/t/Constant.t
@@ -125,6 +125,33 @@ sub build_and_run {
 
   if ($^O eq 'VMS') { $make .= ' all'; }
 
+  # Sometimes it seems that timestamps can get confused
+
+  # make failed: 256
+  # Makefile out-of-date with respect to Makefile.PL
+  # Cleaning current config before rebuilding Makefile...
+  # make -f Makefile.old clean > /dev/null 2>&1 || /bin/sh -c true
+  # ../../perl "-I../../../lib" "-I../../../lib" Makefile.PL "PERL_CORE=1"
+  # Checking if your kit is complete...                         
+  # Looks good
+  # Writing Makefile for ExtTest
+  # ==> Your Makefile has been rebuilt. <==
+  # ==> Please rerun the make command.  <==
+  # false
+
+  my $timewarp = (-M "Makefile.PL") - (-M "$makefile$makefile_ext");
+  # Convert from days to seconds
+  $timewarp *= 86400;
+  print "# Makefile.PL is $timewarp second(s) older than $makefile$makefile_ext\n";
+  if ($timewarp < 0) {
+      # Sleep for a while to catch up.
+      $timewarp = -$timewarp;
+      $timewarp+=2;
+      $timewarp = 10 if $timewarp > 10;
+      print "# Sleeping for $timewarp second(s) to try to resolve this\n";
+      sleep $timewarp;
+  }
+
   print "# make = '$make'\n";
   @makeout = `$make`;
   if ($?) {