Change 20609 by [EMAIL PROTECTED] on 2003/08/11 04:28:29
Subject: [perl #23273] warnings in Unicode::UCD
From: Lukas Mai (via RT) <[EMAIL PROTECTED]>
Date: 10 Aug 2003 22:37:41 -0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Unicode/UCD.pm#33 edit
... //depot/perl/lib/Unicode/UCD.t#20 edit
Differences ...
==== //depot/perl/lib/Unicode/UCD.pm#33 (text) ====
Index: perl/lib/Unicode/UCD.pm
--- perl/lib/Unicode/UCD.pm#32~20232~ Sun Jul 27 10:34:23 2003
+++ perl/lib/Unicode/UCD.pm Sun Aug 10 21:28:29 2003
@@ -211,6 +211,7 @@
use Search::Dict 1.02;
if (look($UNICODEFH, "$hexk;", { xfrm => sub { $_[0] =~ /^([^;]+);(.+)/;
sprintf "%06X;$2", hex($1) } } ) >= 0) {
my $line = <$UNICODEFH>;
+ return unless defined $line;
chomp $line;
my %prop;
@prop{qw(
==== //depot/perl/lib/Unicode/UCD.t#20 (text) ====
Index: perl/lib/Unicode/UCD.t
--- perl/lib/Unicode/UCD.t#19~20232~ Sun Jul 27 10:34:23 2003
+++ perl/lib/Unicode/UCD.t Sun Aug 10 21:28:29 2003
@@ -12,7 +12,7 @@
use Unicode::UCD;
use Test::More;
-BEGIN { plan tests => 178 };
+BEGIN { plan tests => 179 };
use Unicode::UCD 'charinfo';
@@ -309,3 +309,6 @@
is(@$r2, $n1, "modifying results should not mess up internal caches");
}
+{
+ is(charinfo(0xdeadbeef), undef, "[perl #23273] warnings in Unicode::UCD");
+}
\ No newline at end of file
End of Patch.
