Change 13057 by ams@lustre on 2001/11/16 20:30:03
Subject: [PATCH] lib/Unicode/UCD.t @INC oddity
From: Andy Dougherty <[EMAIL PROTECTED]>
Date: Fri, 16 Nov 2001 16:28:45 -0500 (EST)
Message-Id:
<[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Unicode/UCD.t#11 edit
Differences ...
==== //depot/perl/lib/Unicode/UCD.t#11 (text) ====
Index: perl/lib/Unicode/UCD.t
--- perl/lib/Unicode/UCD.t.~1~ Fri Nov 16 13:45:06 2001
+++ perl/lib/Unicode/UCD.t Fri Nov 16 13:45:06 2001
@@ -1,14 +1,14 @@
-use Unicode::UCD;
-
-use strict;
-
BEGIN {
if (ord("A") == 193) {
print "1..0 # Skip: EBCDIC\n";
exit 0;
}
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
+use strict;
+use Unicode::UCD;
use Test;
BEGIN { plan tests => 162 };
End of Patch.
