From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 2 Jul 2001 14:11:23 +0000 (-0500)
Subject: UCD.pm: if at first you don't succeed, croak?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=14f14a1020aa168014cccb2f21519e9d6b74be72;p=p5sagit%2Fp5-mst-13.2.git

UCD.pm: if at first you don't succeed, croak?
Message-Id: <5.1.0.14.0.20010702140058.01b6c9c0@exchi01>

p4raw-id: //depot/perl@11102
---

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index ce657a1..449229a 100644
--- a/lib/Unicode/UCD.pm
+++ b/lib/Unicode/UCD.pm
@@ -44,6 +44,7 @@ sub openunicode {
 	for my $d (@INC) {
 	    use File::Spec;
 	    $f = File::Spec->catfile($d, "unicode", @path);
+           next unless -f $f;
 	    if (open($$rfh, $f)) {
 		last;
 	    } else {