X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Futf8_heavy.pl;h=41a0662fd82db6962e3461a5a0ddb9e60bc52ca1;hb=163ba113b958ebef4215df1e1b04445b4a85504f;hp=b6b6b6e215d3d7f295ec84e499d1c8feb822b150;hpb=075d4edd61a9648945541c8a76d8c03d4588400b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index b6b6b6e..41a0662 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".
@@ -195,6 +197,8 @@ sub SWASHNEW {
 		return $found;
 	    }
 
+	    local $@;
+	    local $!;
 	    $list = do $file; die $@ if $@;
 	}