In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/648eb45f2e489e7cbdab09c65bccaac4a78ae3ee?hp=eaff586aa6444fb20654ed863b7ff35e136737e8>
- Log ----------------------------------------------------------------- commit 648eb45f2e489e7cbdab09c65bccaac4a78ae3ee Author: Anthony Heading <[email protected]> Date: Thu Aug 28 19:10:06 2014 -0400 stat Makefile.PL to get values for utime. On certain machines, the file system timestamps are in local time, so assigning a timestamp based on a time() call is prone to jump timezones to UTC. Anthony Heading is now a Perl 5 author. For: RT #122609 ----------------------------------------------------------------------- Summary of changes: AUTHORS | 1 + make_ext.pl | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/AUTHORS b/AUTHORS index 2f24528..0c65d45 100644 --- a/AUTHORS +++ b/AUTHORS @@ -102,6 +102,7 @@ Andy Dougherty <[email protected]> Andy Lester <[email protected]> Anno Siegel <[email protected]> Anthony David <[email protected]> +Anthony Heading <[email protected]> Anton Berezin <[email protected]> Anton Nikishaev <[email protected]> Anton Tagunov <[email protected]> diff --git a/make_ext.pl b/make_ext.pl index a67e894..29e88a9 100644 --- a/make_ext.pl +++ b/make_ext.pl @@ -445,8 +445,8 @@ EOM # the Makefile.PL. Altering the atime and mtime backwards by 4 # seconds seems to resolve the issue. eval { - my $ftime = time - 4; - utime $ftime, $ftime, 'Makefile.PL'; + my $ftime = (stat('Makefile.PL'))[9] - 4; + utime $ftime, $ftime, 'Makefile.PL'; }; } elsif ($mname =~ /\A(?:Carp |ExtUtils::CBuilder -- Perl5 Master Repository
