Multiple consecutive writes on PerlIO::Scalar

[p5sagit/p5-mst-13.2.git] / t / lib / lc-constants.t

diff --git a/t/lib/lc-constants.t b/t/lib/lc-constants.t
index e71103d..359cdfc 100644 (file)
--- a/t/lib/lc-constants.t
+++ b/t/lib/lc-constants.t
@@ -3,6 +3,11 @@
 # constants.t - tests for Locale::Constants
 #
 
+BEGIN {
+        chdir 't' if -d 't';
+        @INC = '../lib';
+}
+
 use Locale::Constants;
 
 print "1..3\n";