A late change (later than foolperl) broke this test for us, though
given the mess we've made in there it's not too surprising something
like this would happen. I think (hope) bleadperl has a much
cleaned-up version of this test.
The patch here fixes the two issues that arose: 1) Printing
something really long like an entire directory listing as one line
(aside from being unreadable) will get broken up into multiple lines
that will be seen as extraneous output by the test suite; 2) the
starting place to search for perlfunc.pod shifted out from under us.
After the patch, all tests pass with Compaq C V6.4-005 on OpenVMS
Alpha V7.2-1, -des configuration. Be advised that I have not had the
opportunity to test the patch on other platforms.
--- t/pod/find.t;-0 Sun Apr 8 02:09:16 2001
+++ t/pod/find.t Tue Apr 17 19:37:21 2001
@@ -30,7 +30,8 @@
print "### searching $lib_dir\n";
my %pods = pod_find("$lib_dir");
my $result = join(",", sort values %pods);
-print "### found $result\n";
+my $printresult = join("\n### ", sort values %pods);
+print "### found $printresult\n";
my $compare = join(',', qw(
Checker
Find
@@ -93,7 +94,7 @@
print "### found $result\n";
if ($^O eq 'VMS') { # privlib is perl_root:[lib] unfortunately
- $compare = "/lib/pod/perlfunc.pod";
+ $compare = "/pod/perlfunc.pod";
$result = VMS::Filespec::unixify($result);
$result =~ s/perl_root\///i;
$result =~ s/^\.\.//; # needed under `mms test`
[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
