[Fwd: [PATCH] Pod::Find should ignore SCM files and dirs]

[perl5.git] / lib / diagnostics.t

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index f30f70e..d9855a9 100644 (file)
--- 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;