diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-04-29 18:37:06 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-04-30 08:42:32 +0000 |
| commit | dfe12e9fe705de0c09d9509573cb4c050307bbd6 (patch) | |
| tree | e37913fdb89b5898f211818a61c219563990358a /t | |
| parent | 95fb7f7fef8654f7d8d5bf5bcba3bc574ef79ade (diff) | |
| download | perl-dfe12e9fe705de0c09d9509573cb4c050307bbd6.tar.gz | |
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
Diffstat (limited to 't')
| -rw-r--r-- | t/pod/testp2pt.pl | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/t/pod/testp2pt.pl b/t/pod/testp2pt.pl index 2db7c3f50a..f432719113 100644 --- 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'), |