Change 13710 by jhi@alpha on 2001/12/16 02:57:09
Subject: RESENT - [PATCH] utf8_heavy.pl
From: Jeffrey Friedl <[EMAIL PROTECTED]>
Date: Sat, 15 Dec 2001 19:55:01 -0800 (PST)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/utf8_heavy.pl#29 edit
Differences ...
==== //depot/perl/lib/utf8_heavy.pl#29 (text) ====
Index: perl/lib/utf8_heavy.pl
--- perl/lib/utf8_heavy.pl.~1~ Sat Dec 15 20:00:07 2001
+++ perl/lib/utf8_heavy.pl Sat Dec 15 20:00:07 2001
@@ -51,14 +51,14 @@
}
}
}
-
+
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}) {
End of Patch.
