diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-28 20:26:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-28 20:26:30 +0000 |
| commit | dc459aad73ffc3aaf43c03d9908415c433fd93ba (patch) | |
| tree | 981bdcf9828bbd255b79fd1181324eb2b45d8a61 /t/pod/testp2pt.pl | |
| parent | 21f5a6076e634a7ee61d6f5aa4e44bf6708db9fb (diff) | |
| download | perl-dc459aad73ffc3aaf43c03d9908415c433fd93ba.tar.gz | |
Integrate #16254 from macperl;
Fix most tests on MacOS (not yet ext/ or /lib)
p4raw-id: //depot/perl@16257
Diffstat (limited to 't/pod/testp2pt.pl')
| -rw-r--r-- | t/pod/testp2pt.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/pod/testp2pt.pl b/t/pod/testp2pt.pl index 4d99f82a72..2db7c3f50a 100644 --- a/t/pod/testp2pt.pl +++ b/t/pod/testp2pt.pl @@ -47,9 +47,9 @@ 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'); + +$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'), |