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>
'Pod::Usage' => {
'DISTRIBUTION' => 'MAREKR/Pod-Usage-1.69.tar.gz',
'FILES' => q[cpan/Pod-Usage],
+ 'CUSTOMIZED' => [
+ 't/pod/testp2pt.pl',
+ ],
},
'podlators' => {
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);
}
Pod::Checker cpan/Pod-Checker/t/pod/testcmp.pl a0cd5c8eca775c7753f4464eee96fa916e3d8a16
Pod::Checker cpan/Pod-Checker/t/pod/testpchk.pl b2072c7f4379fd050e15424175d7cac5facf5b3b
Pod::Perldoc cpan/Pod-Perldoc/lib/Pod/Perldoc.pm 582be34c077c9ff44d99914724a0cc2140bcd48c
+Pod::Usage cpan/Pod-Usage/t/pod/testp2pt.pl d43ea8391bd95aefdb710ab2947771155a88d424
autodie cpan/autodie/lib/autodie/exception.pm b99e4e35a9ed36de94d54437888822ced4936207
autodie cpan/autodie/lib/autodie/hints.pm e1998fec61fb4e82fe46585bd82c73200be6f262
autodie cpan/autodie/t/exceptions.t ad315a208f875e06b0964012ce8d65daa438c036