diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-01 15:44:14 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-01 15:44:14 +0200 |
commit | 5bdf71cc9217764029fb9a321295118de3bb8e72 (patch) | |
tree | 00243051ace759751dcf242f9cba701c00b5f215 /t | |
parent | 20f91e418dfa8bdf6cf78614bfebebc28a7613ee (diff) | |
download | perl-5bdf71cc9217764029fb9a321295118de3bb8e72.tar.gz |
Upgrade to ExtUtils::MakeMaker 6.52
Diffstat (limited to 't')
-rw-r--r-- | t/lib/MakeMaker/Test/Setup/BFD.pm | 5 | ||||
-rw-r--r-- | t/lib/MakeMaker/Test/Setup/PL_FILES.pm | 5 | ||||
-rw-r--r-- | t/lib/MakeMaker/Test/Setup/Problem.pm | 6 | ||||
-rw-r--r-- | t/lib/MakeMaker/Test/Setup/Recurs.pm | 5 | ||||
-rw-r--r-- | t/lib/TieOut.pm | 7 |
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; |