Change 16254 broke a couple of the pod tests on VMS. The patch below
fixes it by putting it back the way it was for VMS only. There must
be some better way to do this but I can't think of one right now.
The real problem seems to be that File::Basename::dirname has
completely different meanings on different platforms.
--- t/pod/testp2pt.pl;-0 Sun Apr 28 16:27:40 2002
+++ t/pod/testp2pt.pl Mon Apr 29 23:11:26 2002
@@ -48,8 +48,17 @@
$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'),
[end of patch]
--
____________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"Literary critics usually know what they're
talking about. Even if they're wrong."
-- Perl creator Larry Wall
