At 03:07 PM 3/2/2001 -0800, Peter Prymmer wrote:
>I also see:
>
>[.pod]find..............FAILED on test 1
For that you need this, which makes the test run happily:
--- t/pod/find.t;-0 Wed Feb 28 09:18:18 2001
+++ t/pod/find.t Fri Mar 2 16:34:45 2001
@@ -8,27 +8,6 @@
BEGIN {
plan tests => 4;
use File::Spec;
- if ($^O eq 'VMS') {
- # This magick is needed to make the VMS I/O system to believe
- # that there's life after eight directory levels (this makes
- # it believe there's life until sixteen levels). The filesystem
- # has no limitation as such.
- $DEFAULT_DIR = $ENV{'DEFAULT'};
- my $here = $DEFAULT_DIR;
- my ($dev,$dir) = File::Spec->splitpath($here);
- $dev =~ s/:$//;
- $dev = $ENV{$dev} if exists($ENV{$dev});
- $dev .= ':' if $dev !~ /:/;
- $here = File::Spec->canonpath($dev.$dir);
- $here =~ s/\]$/.]/;
- system "define/nolog/job/trans=conceal temp_perl_base $here";
- chdir('temp_perl_base:[000000]');
- }
-}
-
-END {
- chdir($DEFAULT_DIR) if $^O eq 'VMS';
- system "deassign/job temp_perl_base";
}
use Pod::Find qw(pod_find pod_where);
[end of patch]
I don't know where the code I'm removing came from but it breaks the test
because it changes the default directory and makes it impossible to locate
libraries, which are located via relative path in the test suite. They
are located via absolute path from an installed perl, which is why running
the test individually works. The END block I've removed also executes a DCL
command for all platforms (which some of them might not like ;-).
I suspect this was added on top of the recent Michael Schwern patch which
created a 'private sandbox' of files and directories to search, some of them
nested rather deep. Since that patch appears to have been withdrawn, we
don't need the ugly workaround, which wasn't quite working yet anyway.
We'll have to revisit this if Michael posts a revised version, though if he
keeps nested directories as shallow as possible that will make life easier.
