diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-28 13:45:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-28 13:45:48 +0000 |
| commit | bc45ce41590a23464acf3b62efacccf60e155a7c (patch) | |
| tree | 2b59a5853cbac9df927d3d2cc7e0990efcba8857 /lib/utf8_heavy.pl | |
| parent | ff385a1bad6ee8beb325a9f711f9e2773dba9aea (diff) | |
| download | perl-bc45ce41590a23464acf3b62efacccf60e155a7c.tar.gz | |
A little bit better error message for \pq, still
not good because the script context is not shown.
p4raw-id: //depot/perl@15581
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 28e0d704d6..70bd018f81 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -95,7 +95,8 @@ sub SWASHNEW { ## If we reach this line, it's because we couldn't figure ## out what to do with $type. Ouch. ## - croak("Can't find Unicode character property \"$type\""); + + return $type; } print "found it (file='$file')\n" if DEBUG; @@ -161,6 +162,7 @@ sub SWASHNEW { if ($char =~ /[-+!]/) { my ($c,$t) = split(/::/, $name, 2); # bogus use of ::, really my $subobj = $c->SWASHNEW($t, "", 0, 0, 0); + return $subobj unless ref $subobj; push @extras, $name => $subobj; $bits = $subobj->{BITS} if $bits < $subobj->{BITS}; } |