From c5a29f4004592b2ad76f103411af81e53655e50a Mon Sep 17 00:00:00 2001
From: Lukas Mai <unknown>
Date: Sun, 10 Aug 2003 22:37:41 +0000
Subject: [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
---
 lib/Unicode/UCD.pm | 1 +
 lib/Unicode/UCD.t  | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index a7238694b7..66734c3dc1 100644
--- 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 c134935c3b..067172d1b5 100644
--- 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
-- 
cgit v1.2.1