X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fdiagnostics.t;h=d9855a9fcc5a1fd880d121b0d211761fbfb0ac45;hb=50109ad0d28b27abe5ee82def070e14b4526321c;hp=f30f70e0731d14343909e0d9fcdbce9c2c03574b;hpb=f0e510f6e0f6843f5396c2398999dcbdacc7aa4a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index f30f70e..d9855a9 100644
--- a/lib/diagnostics.t
+++ b/lib/diagnostics.t
@@ -1,8 +1,13 @@
 #!./perl
 
 BEGIN {
-    chdir '..' if -d '../pod' && -d '../t';
-    @INC = 'lib';
+    if ($^O eq 'MacOS') {
+	chdir '::' if -d '::pod' && -d '::t';
+	@INC = ':lib:';
+    } else {
+	chdir '..' if -d '../pod' && -d '../t';
+	@INC = 'lib';
+    }
 }
 
 use Test::More tests => 2;