In perl.git, the branch smoke-me/jkeenan/131337-craig has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8d2660b2367a4d947f69ec307cebdf4a159cdd33?hp=52ad33ec8fe7f11aee1e5a6c729b5c8e213daeb1>
discards 52ad33ec8fe7f11aee1e5a6c729b5c8e213daeb1 (commit) - Log ----------------------------------------------------------------- commit 8d2660b2367a4d947f69ec307cebdf4a159cdd33 Author: James E Keenan <[email protected]> Date: Sun May 21 22:16:23 2017 -0400 Patch suggested by Craig Berry for RT 131337. ----------------------------------------------------------------------- Summary of changes: dist/Time-HiRes/Makefile.PL | 4 ++-- pod/perldelta.pod | 40 ++++++++++++++++------------------------ 2 files changed, 18 insertions(+), 26 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"; diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 829b3a2bc9..4a30a164fd 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -17,13 +17,17 @@ This release includes three updates with widespread effects: =item * C<.> no longer in C<@INC> -The current modules, and for the execution of scripts. See the section -L<< Removal of the current directory (C<.>) from C<@INC> >> for the full details. +For security reasons, the current directory (C<.>) is no longer included +by default at the end of the module search path (C<@INC>). This may have +widespread implications for the building, testing and installing of +modules, and for the execution of scripts. See the section +L<< Removal of the current directory (C<.>) from C<@INC> >> +for the full details. =item * C<do> may now warn -C<do> now gives a mandatory warning when it fails to load a file which it -would have loaded had C<.> been in C<@INC>. +C<do> now gives a deprecation warning when it fails to load a file which +it would have loaded had C<.> been in C<@INC>. =item * In regular expression patterns, a literal left brace C<"{"> should be escaped @@ -492,12 +496,8 @@ A hash in boolean context is now sometimes faster, I<e.g.> if (!%h) { ... } -This was already special-cased, but some cases were missed, and even the -ones which weren't have been improved. - -=item * - -Several other ops may now also be faster in boolean context. +This was already special-cased, but some cases were missed (such as +C<grep %$_, @AoH>, and even the ones which weren't have been improved. =item * New Faster Hash Function on 64 bit builds @@ -541,26 +541,18 @@ Enhancements in Regex concat COW implementation. =item * -Clearing hashes and arrays has been made slightly faster. Now code -like this is around 5% faster: +Better optimise array and hash assignment: where an array or hash appears +in the LHS of a list assignment, such as C<(..., @a) = (...);>, it's +likely to be considerably faster, especially if it involves emptying the +array/hash. For example this code runs about 1/3 faster compared to +5.24.0: my @a; - for my $i (1..3_000_000) { + for my $i (1..10_000_000) { @a = (1,2,3); @a = (); } -and this code around 3% faster: - - my %h; - for my $i (1..3_000_000) { - %h = qw(a 1 b 2); - %h = (); - } - -=item * - -Better optimise array and hash assignment =item * -- Perl5 Master Repository
