Change 16276: [PATCH] t/pod/testp2pt.pl: roll back 16254 for VMS

[Abhijit Menon-Sen]

Change 16276 by ams@lustre on 2002/04/30 08:42:32

           Subject: [PATCH] t/pod/testp2pt.pl: roll back 16254 for VMS
           From: "Craig A. Berry" <[EMAIL PROTECTED]>
           Date: Mon, 29 Apr 2002 23:37:06 -0500
           Message-Id: <a05111701b8f3cad59ba7@[172.16.52.1]>

Affected files ...

.... //depot/perl/t/pod/testp2pt.pl#12 edit

Differences ...

==== //depot/perl/t/pod/testp2pt.pl#12 (text) ====
Index: perl/t/pod/testp2pt.pl
--- perl/t/pod/testp2pt.pl.~1~  Tue Apr 30 02:45:05 2002
+++ perl/t/pod/testp2pt.pl      Tue Apr 30 02:45:05 2002
@@ -48,8 +48,17 @@
     $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'),
End of Patch.