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

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index e0cdc7b..94c132d 100644 (file)
--- 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