diff options
| author | Craig A. Berry <craigberry@mac.com> | 2019-08-30 11:28:42 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2019-08-30 13:33:47 -0500 |
| commit | 88e4265ca263642612277ef33dd08ded69e4e4c5 (patch) | |
| tree | 12b34e7314941cc6aa0feda3ac3d815297315f72 /cpan | |
| parent | 060b1fe22cc4067b315c065f639cae016660a485 (diff) | |
| download | perl-88e4265ca263642612277ef33dd08ded69e4e4c5.tar.gz | |
Fix parent directory in pod2usage auxiliary script.
File::Basename::dirname does not always remove the last component
of the path if that component is already a directory, depending on
platform. This behavior is documented. pod2usage.t has been
failing on VMS because we get the wrong directory into @INC.
So, since we already have File::Spec loaded, just use the more
obvious and portable method for getting the parent directory.
Reported upstream at:
<https://rt.cpan.org/Ticket/Display.html?id=130418>
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/Pod-Usage/t/pod/testp2pt.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/Pod-Usage/t/pod/testp2pt.pl b/cpan/Pod-Usage/t/pod/testp2pt.pl index cd31245327..720575336c 100644 --- a/cpan/Pod-Usage/t/pod/testp2pt.pl +++ b/cpan/Pod-Usage/t/pod/testp2pt.pl @@ -11,7 +11,7 @@ BEGIN { unshift @INC, $THISDIR; require "testcmp.pl"; import TestCompare; - $PARENTDIR = dirname $THISDIR; + $PARENTDIR = File::Spec->catdir($THISDIR, File::Spec->updir()); push @INC, map { File::Spec->catfile($_, 'lib') } ($PARENTDIR, $THISDIR); } |