& what's to be done for 5.8.0?

[p5sagit/p5-mst-13.2.git] / ext / B / t / showlex.t

diff --git a/ext/B/t/showlex.t b/ext/B/t/showlex.t
index 41dbd32..1322235 100755 (executable)
--- a/ext/B/t/showlex.t
+++ b/ext/B/t/showlex.t
@@ -1,8 +1,11 @@
 #!./perl
 
 BEGIN {
+    chdir 't' if -d 't';
     if ($^O eq 'MacOS') {
        @INC = qw(: ::lib ::macos:lib);
+    } else {
+       @INC = '../lib';
     }
 }