lib/Unicode/UCD.t @INC oddity

Message-Id: <Pine.SOL.4.10.10111161625070.7245-100000@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@13057

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index e70e104..1bed138 100644 (file)
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -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 };