summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-06-01 15:44:14 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-06-01 15:44:14 +0200
commit5bdf71cc9217764029fb9a321295118de3bb8e72 (patch)
tree00243051ace759751dcf242f9cba701c00b5f215 /t
parent20f91e418dfa8bdf6cf78614bfebebc28a7613ee (diff)
downloadperl-5bdf71cc9217764029fb9a321295118de3bb8e72.tar.gz
Upgrade to ExtUtils::MakeMaker 6.52
Diffstat (limited to 't')
-rw-r--r--t/lib/MakeMaker/Test/Setup/BFD.pm5
-rw-r--r--t/lib/MakeMaker/Test/Setup/PL_FILES.pm5
-rw-r--r--t/lib/MakeMaker/Test/Setup/Problem.pm6
-rw-r--r--t/lib/MakeMaker/Test/Setup/Recurs.pm5
-rw-r--r--t/lib/TieOut.pm7
5 files changed, 24 insertions, 4 deletions
diff --git a/t/lib/MakeMaker/Test/Setup/BFD.pm b/t/lib/MakeMaker/Test/Setup/BFD.pm
index c540708529..9745656f63 100644
--- a/t/lib/MakeMaker/Test/Setup/BFD.pm
+++ b/t/lib/MakeMaker/Test/Setup/BFD.pm
@@ -108,6 +108,11 @@ sub setup_recurs {
open(FILE, ">$file") || die "Can't create $file: $!";
print FILE $text;
close FILE;
+
+ # ensure file at least 1 second old for makes that assume
+ # files with the same time are out of date.
+ my $time = calibrate_mtime();
+ utime $time, $time - 1, $file;
}
return 1;
diff --git a/t/lib/MakeMaker/Test/Setup/PL_FILES.pm b/t/lib/MakeMaker/Test/Setup/PL_FILES.pm
index 98cbebdf64..7446185444 100644
--- a/t/lib/MakeMaker/Test/Setup/PL_FILES.pm
+++ b/t/lib/MakeMaker/Test/Setup/PL_FILES.pm
@@ -100,6 +100,11 @@ sub setup {
open(FILE, ">$file") || die "Can't create $file: $!";
print FILE $text;
close FILE;
+
+ # ensure file at least 1 second old for makes that assume
+ # files with the same time are out of date.
+ my $time = calibrate_mtime();
+ utime $time, $time - 1, $file;
}
return 1;
diff --git a/t/lib/MakeMaker/Test/Setup/Problem.pm b/t/lib/MakeMaker/Test/Setup/Problem.pm
index 4cb14b59ac..c6573a1aad 100644
--- a/t/lib/MakeMaker/Test/Setup/Problem.pm
+++ b/t/lib/MakeMaker/Test/Setup/Problem.pm
@@ -7,6 +7,7 @@ require Exporter;
use strict;
use File::Path;
use File::Basename;
+use MakeMaker::Test::Utils;
my %Files = (
'Problem-Module/Makefile.PL' => <<'END',
@@ -37,6 +38,11 @@ sub setup_recurs {
open(FILE, ">$file") || die "Can't create $file: $!";
print FILE $text;
close FILE;
+
+ # ensure file at least 1 second old for makes that assume
+ # files with the same time are out of date.
+ my $time = calibrate_mtime();
+ utime $time, $time - 1, $file;
}
return 1;
diff --git a/t/lib/MakeMaker/Test/Setup/Recurs.pm b/t/lib/MakeMaker/Test/Setup/Recurs.pm
index d3585eb9c2..ad1be2f6d1 100644
--- a/t/lib/MakeMaker/Test/Setup/Recurs.pm
+++ b/t/lib/MakeMaker/Test/Setup/Recurs.pm
@@ -50,6 +50,11 @@ sub setup_recurs {
open(FILE, ">$file") || die "Can't create $file: $!";
print FILE $text;
close FILE;
+
+ # ensure file at least 1 second old for makes that assume
+ # files with the same time are out of date.
+ my $time = calibrate_mtime();
+ utime $time, $time - 1, $file;
}
return 1;
diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm
index 24a155964d..0a0f5f9cfe 100644
--- a/t/lib/TieOut.pm
+++ b/t/lib/TieOut.pm
@@ -1,14 +1,13 @@
package TieOut;
-# $Id: /mirror/googlecode/test-more-trunk/t/lib/TieOut.pm 67132 2008-10-01T01:11:04.501643Z schwern $
sub TIEHANDLE {
my $scalar = '';
- bless( \$scalar, $_[0] );
+ bless( \$scalar, $_[0]);
}
sub PRINT {
my $self = shift;
- $$self .= join( '', @_ );
+ $$self .= join('', @_);
}
sub PRINTF {
@@ -17,7 +16,7 @@ sub PRINTF {
$$self .= sprintf $fmt, @_;
}
-sub FILENO { }
+sub FILENO {}
sub read {
my $self = shift;