Change 11102 by jhi@alpha on 2001/07/02 18:16:09
Subject: [PATCH perl@11059] UCD.pm: if at first you don't succeed, croak?
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Mon, 02 Jul 2001 14:11:23 -0500
Message-Id: <5.1.0.14.0.20010702140058.01b6c9c0@exchi01>
Affected files ...
... //depot/perl/lib/Unicode/UCD.pm#5 edit
Differences ...
==== //depot/perl/lib/Unicode/UCD.pm#5 (text) ====
Index: perl/lib/Unicode/UCD.pm
--- perl/lib/Unicode/UCD.pm.~1~ Mon Jul 2 12:30:05 2001
+++ perl/lib/Unicode/UCD.pm Mon Jul 2 12:30:05 2001
@@ -44,6 +44,7 @@
for my $d (@INC) {
use File::Spec;
$f = File::Spec->catfile($d, "unicode", @path);
+ next unless -f $f;
if (open($$rfh, $f)) {
last;
} else {
End of Patch.
