[perl #23273] warnings in Unicode::UCD

From: Lukas Mai (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-23273-62473.18.6967347513833@rt.perl.org>

p4raw-id: //depot/perl@20609

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index a723869..66734c3 100644 (file)
--- a/lib/Unicode/UCD.pm
+++ b/lib/Unicode/UCD.pm
@@ -211,6 +211,7 @@ sub charinfo {
        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(

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index c134935..067172d 100644 (file)
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -12,7 +12,7 @@ use strict;
 use Unicode::UCD;
 use Test::More;
 
-BEGIN { plan tests => 178 };
+BEGIN { plan tests => 179 };
 
 use Unicode::UCD 'charinfo';
 
@@ -309,3 +309,6 @@ is(Unicode::UCD::_getcode('U+123x'),  undef, "_getcode(x123)");
     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