In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/49801ec2d7060531b93111303ad5de74c09e8b2d?hp=95effdf194acae64a4ab711dc3d35da13872afdd>
- Log ----------------------------------------------------------------- commit 49801ec2d7060531b93111303ad5de74c09e8b2d Author: Karl Williamson <[email protected]> Date: Mon Mar 14 10:25:09 2011 -0600 utf8_heavy.pl: Use CORE:: case function overridden Because an overridden case changing function may end up calling this routine, it's better to use the CORE:: to avoid a recursive call ----------------------------------------------------------------------- Summary of changes: lib/utf8_heavy.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index e0cdc7b..94c132d 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -147,7 +147,7 @@ sub croak { require Carp; Carp::croak(@_) } BEGIN { delete $utf8::{miniperl} } # All property names are matched caselessly - my $property_and_table = lc $type; + my $property_and_table = CORE::lc $type; print STDERR __LINE__, ": $property_and_table\n" if DEBUG; # See if is of the compound form 'property=value', where the -- Perl5 Master Repository
