diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-28 13:10:48 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-28 13:10:48 +0000 |
commit | 0a0ffbced76eaafcaebd51ddc09366bc6ba04e9e (patch) | |
tree | ce5bcf24c3bb0ff610008329cd1db826dd0a7265 /lib/utf8_heavy.pl | |
parent | c6502f5c7c927d82523e421275ac87013ce318d5 (diff) | |
download | perl-0a0ffbced76eaafcaebd51ddc09366bc6ba04e9e.tar.gz |
Make lc/uc/lcfirst/ucfirst warn when passed undef.
Naive implementation.
p4raw-id: //depot/perl@33088
Diffstat (limited to 'lib/utf8_heavy.pl')
-rw-r--r-- | lib/utf8_heavy.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index b6b6b6e215..ecdd95e3cb 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -137,10 +137,12 @@ sub SWASHNEW { print STDERR "canonical = $canonical\n" if DEBUG; require "unicore/Canonical.pl"; + { no warnings "uninitialized"; if (my $base = ($utf8::Canonical{$canonical} || $utf8::Canonical{ lc $utf8::PropertyAlias{$canonical} })) { $file = "unicore/lib/gc_sc/$base.pl"; last GETFILE; } + } ## ## See if it's a user-level "To". |