diff options
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'), |