diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-08-21 11:49:28 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-08-22 08:25:39 -0600 |
commit | 5d1892be338d6bf95fbda32ca575c0395a66f1a7 (patch) | |
tree | 64f99cb03a474e36ecd602d429101565a394dc1c /lib/utf8_heavy.pl | |
parent | 3712c77bc49a626e2717a6289ed2e3948b64814e (diff) | |
download | perl-5d1892be338d6bf95fbda32ca575c0395a66f1a7.tar.gz |
Remove user-defined casing feature
This feature was deprecated in 5.14 and scheduled to remove in 5.16. A
CPAN module was written to provide better functionality without the
significant drawbacks of this implementation.
Diffstat (limited to 'lib/utf8_heavy.pl')
-rw-r--r-- | lib/utf8_heavy.pl | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 3af914918b..4953127295 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -397,24 +397,6 @@ sub croak { require Carp; Carp::croak(@_) } print STDERR __LINE__, ": didn't find $property_and_table\n" if DEBUG; ## - ## See if it's a user-level "To". - ## - - my $caller0 = caller(0); - - if (defined $caller0 && $type =~ /^To(?:\w+)$/) { - my $map = $caller0 . "::" . $type; - - if (exists &{$map}) { - no strict 'refs'; - - $list = &{$map}; - warnings::warnif('deprecated', "User-defined case-mapping '$type' is deprecated"); - last GETFILE; - } - } - - ## ## Last attempt -- see if it's a standard "To" name ## (e.g. "ToLower") ToTitle is used by ucfirst(). ## The user-level way to access ToDigit() and ToFold() |