The test suite tweak in #6101 wasn't quite right.

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

diff --git a/t/lib/ph.t b/t/lib/ph.t
index b225bf4..dd24c79 100755 (executable)
--- a/t/lib/ph.t
+++ b/t/lib/ph.t
@@ -4,8 +4,10 @@
 # just socket.ph and pals.
 #   -- Kurt Starsinic <kstar@isinet.com>
 
-use lib '../lib';
-
+BEGIN {
+    chdir 't' if -d 't';
+    unshift @INC, '../lib';
+}
 
 # All the constants which Socket.pm tries to make available:
 my @possibly_defined = qw(