diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-07-02 09:11:23 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 18:16:09 +0000 |
| commit | 14f14a1020aa168014cccb2f21519e9d6b74be72 (patch) | |
| tree | 87a6a74508532bcbd45d13afdadc9ad5ffb367c0 | |
| parent | 6ff5271635bf24fb4e3d46d5d9667b29c451dcbc (diff) | |
| download | perl-14f14a1020aa168014cccb2f21519e9d6b74be72.tar.gz | |
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
| -rw-r--r-- | lib/Unicode/UCD.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm index ce657a1ed4..449229a7ef 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 { |