X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpod%2Ftestp2pt.pl;h=4d99f82a72e829d0d6689682d7ee702dd237cb5f;hb=d8f6a7325d6b2ec46e8cdc1ec4b5e1ad4a86abd0;hp=735350ff40de4d5c643d4fa5c8c7136f78684df9;hpb=3827f17e1a3ba75532f089723508d3300b6b7744;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/pod/testp2pt.pl b/t/pod/testp2pt.pl
index 735350f..4d99f82 100644
--- a/t/pod/testp2pt.pl
+++ b/t/pod/testp2pt.pl
@@ -47,8 +47,10 @@ if ($^O eq 'VMS') { # clean up directory spec
     $INSTDIR =~ s#/$##;
     $INSTDIR =~ s#/000000/#/#;
 }
+# cut 't/pod' from path (cut 't:pod:' on Mac OS)
 $INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 'pod');
 $INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 't');
+
 my @PODINCDIRS = ( catfile($INSTDIR, 'lib', 'Pod'),
                    catfile($INSTDIR, 'scripts'),
                    catfile($INSTDIR, 'pod'),