RESENT - [PATCH] utf8_heavy.pl

Message-Id: <200112160355.fBG3t1t84835@ventrue.corp.yahoo.com>

p4raw-id: //depot/perl@13710

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 9e18772..4fbb112 100644 (file)
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -51,14 +51,14 @@ sub SWASHNEW {
                    }
                }
            }
-                       
+
            unless (defined $file) {
                defined %utf8::In || do "unicore/In.pl";
                $type = 'Lampersand' if $type =~ /^(?:Is)?L&$/;
                $type = 'Assigned'   if $type =~ /^(?:Is)?Assigned$/i;
                $type = 'Unassigned' if $type =~ /^(?:Is)?Unassigned$/i;
                if ($type =~ /^(In|(?:Script|Block)\s*=\s*)?[- _]?(?!herited$)(.+)/i) {
-                   my $incat  = $1;
+                   my $incat  = $1 || '';
                    my $intype = $2;
                    print "incat = $incat, intype = $intype\n" if DEBUG;
                    if (exists $utf8::In{$intype}) {