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 (file)
--- 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 {