t/pod/testp2pt.pl: roll back 16254 for VMS

   From: "Craig A. Berry" <craigberry@mac.com>
   Message-Id: <a05111701b8f3cad59ba7@[172.16.52.1]>

p4raw-id: //depot/perl@16276

diff --git a/t/pod/testp2pt.pl b/t/pod/testp2pt.pl
index 2db7c3f..f432719 100644 (file)
--- a/t/pod/testp2pt.pl
+++ b/t/pod/testp2pt.pl
@@ -48,8 +48,17 @@ if ($^O eq 'VMS') { # clean up directory spec
     $INSTDIR =~ s#/000000/#/#;
 }
 
-$INSTDIR = (dirname $INSTDIR) if ((File::Spec->splitdir($INSTDIR))[-1] eq 'pod');
-$INSTDIR = (dirname $INSTDIR) if ((File::Spec->splitdir($INSTDIR))[-1] eq 't');
+if ($^O eq 'VMS') {
+  # File::Spec::VMS::splitdir doesn't work on Unix syntax filespecs, but
+  # on VMS syntax filespecs dirname returns (as documented) the directory
+  # part of the path (NOT the parent directory, as is assumed in this script).
+  $INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 'pod');
+  $INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 't');
+}
+else {
+  $INSTDIR = (dirname $INSTDIR) if ((File::Spec->splitdir($INSTDIR))[-1] eq 'pod');
+  $INSTDIR = (dirname $INSTDIR) if ((File::Spec->splitdir($INSTDIR))[-1] eq 't');
+}
 
 my @PODINCDIRS = ( catfile($INSTDIR, 'lib', 'Pod'),
                    catfile($INSTDIR, 'scripts'),