Add missing MANIFEST entries

[p5sagit/p5-mst-13.2.git] / lib / utf8_heavy.pl

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index b6b6b6e..41a0662 100644 (file)
--- 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 $@;
        }