From 49801ec2d7060531b93111303ad5de74c09e8b2d Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Mon, 14 Mar 2011 10:25:09 -0600
Subject: [PATCH] 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
---
 lib/utf8_heavy.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.7.4