In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9adefa9dfc5c08e8b9baaa79591a32ea32804fdd?hp=d9742aa386b81e67ce2ecd1229bb8f04bf2899ec>
- Log ----------------------------------------------------------------- commit 9adefa9dfc5c08e8b9baaa79591a32ea32804fdd Author: Alan Haggai Alavi <[email protected]> Date: Sat Jun 25 10:31:04 2011 +0530 fix `perldoc -v '$0'` Presently, `perldoc -v '$0'` fetches the entry for $<digits> ($1, $2, ...) instead of $0 ($PROGRAM_NAME). M dist/Pod-Perldoc/lib/Pod/Perldoc.pm commit c74d6d75f56a70245bb2a04967a8330ef62fbc8f Author: Father Chrysostomos <[email protected]> Date: Fri Jun 24 22:55:47 2011 -0700 Increase $Pod::Perldoc::VERSION in preparation for the next commit. M dist/Pod-Perldoc/lib/Pod/Perldoc.pm commit d9463c668c68a351b6b8c784a789ebda9ba36f12 Author: Father Chrysostomos <[email protected]> Date: Fri Jun 24 12:31:12 2011 -0700 perldelta entry for #93454 M pod/perldelta.pod commit d0df0e98c5bfa50aa15b6e3668676e95dcef8c08 Author: Father Chrysostomos <[email protected]> Date: Fri Jun 24 09:29:39 2011 -0700 Tiny comment typo fix in handy.h M handy.h commit cee4176c3151aa7ffb540a84623cff862e686ddd Author: Father Chrysostomos <[email protected]> Date: Fri Jun 24 09:22:49 2011 -0700 Correct comment that 903fd87c missed M op.h ----------------------------------------------------------------------- Summary of changes: dist/Pod-Perldoc/lib/Pod/Perldoc.pm | 4 ++-- handy.h | 2 +- op.h | 2 +- pod/perldelta.pod | 9 +++++++++ 4 files changed, 13 insertions(+), 4 deletions(-) diff --git a/dist/Pod-Perldoc/lib/Pod/Perldoc.pm b/dist/Pod-Perldoc/lib/Pod/Perldoc.pm index 95b00e3..a65a474 100644 --- a/dist/Pod-Perldoc/lib/Pod/Perldoc.pm +++ b/dist/Pod-Perldoc/lib/Pod/Perldoc.pm @@ -12,7 +12,7 @@ use File::Spec::Functions qw(catfile catdir splitdir); use vars qw($VERSION @Pagers $Bindir $Pod2man $Temp_Files_Created $Temp_File_Lifetime ); -$VERSION = '3.15_05'; +$VERSION = '3.15_06'; #.......................................................................... BEGIN { # Make a DEBUG constant very first thing... @@ -911,7 +911,7 @@ sub search_perlvar { open(PVAR, "<", $perlvar) # "Funk is its own reward" or die("Can't open $perlvar: $!"); - if ( $opt =~ /^\$\d+$/ ) { # handle $1, $2, ..., $9 + if ( $opt ne '$0' && $opt =~ /^\$\d+$/ ) { # handle $1, $2, ... $opt = '$<I<digits>>'; } my $search_re = quotemeta($opt); diff --git a/handy.h b/handy.h index 18e2d1c..b75eafb 100644 --- a/handy.h +++ b/handy.h @@ -470,7 +470,7 @@ There are three variants for all the functions in this section. The base ones operate using the character set of the platform Perl is running on. The ones with an C<_A> suffix operate on the ASCII character set, and the ones with an C<_L1> suffix operate on the full Latin1 character set. All are unaffected by -locale +locale. For ASCII platforms, the base function with no suffix and the one with the C<_A> suffix are identical. The function with the C<_L1> suffix imposes the diff --git a/op.h b/op.h index ce17bd5..5b1432c 100644 --- a/op.h +++ b/op.h @@ -538,7 +538,7 @@ struct loop { # define Nullop ((OP*)NULL) #endif -/* Lowest byte-and-a-bit of PL_opargs */ +/* Lowest byte of PL_opargs */ #define OA_MARK 1 #define OA_FOLDCONST 2 #define OA_RETSCALAR 4 diff --git a/pod/perldelta.pod b/pod/perldelta.pod index d4bc3c3..6383796 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -414,6 +414,15 @@ list lvalue context used to clear the variable before the assignment could happen. This is something that was missed when explicit return was made to work in 5.15.0. +=item * + +=for comment +Not necessary for perl5160delta + +A minor memory leak, introduced in 5.15.0, has been fixed. It would occur +when a hash is freed that has had its current iterator deleted +[perl #93454]. + =back =head1 Known Problems -- Perl5 Master Repository
