From: Jeffrey Friedl <jfriedl@regex.info>
Date: Sat, 15 Dec 2001 19:55:01 +0000 (-0800)
Subject: RESENT - [PATCH] utf8_heavy.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa689c2334baa95cf3f3faa003c5d50ee4cd9b7a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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}) {