In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ba570843add681d44ff50ff219d1ce000a961663?hp=7c825fcad57027ee06ac8c734df998f50937ce57>
- Log ----------------------------------------------------------------- commit ba570843add681d44ff50ff219d1ce000a961663 Author: David Mitchell <[email protected]> Date: Mon May 22 09:37:31 2017 +0100 Time-HiRes: fix a do/@INC issue in Makefile.PL The code assumed that File::Spec->catfile(".", ...) would create a "./" prefix in the pathname that is fed to do(), but it turns out catfile() doesn't work like that. This didn't affect perl builds since Makefile.PL is normally run by miniperl, which *does* have '.' in @INC. But it you tried to build Time-HiRes manually, it would fail. [ This commit is half of a diff proposed by James E Keenan - I decided the File::Spec part could wait till after 5.26.0 ] ----------------------------------------------------------------------- Summary of changes: dist/Time-HiRes/Makefile.PL | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dist/Time-HiRes/Makefile.PL b/dist/Time-HiRes/Makefile.PL index ca4d4dc420..66691fd08b 100644 --- a/dist/Time-HiRes/Makefile.PL +++ b/dist/Time-HiRes/Makefile.PL @@ -417,11 +417,11 @@ sub DEFINE { } sub init { - my $hints = File::Spec->catfile(".", "hints", "$^O.pl"); + my $hints = File::Spec->catfile("hints", "$^O.pl"); if (-f $hints) { print "Using hints $hints...\n"; local $self; - do $hints; + do "./$hints"; if (exists $self->{LIBS}) { $LIBS = $self->{LIBS}; print "Extra libraries: @$LIBS...\n"; -- Perl5 Master Repository
