Thanks for the patch and apologies to Nico for implying that his mod
to VMS::Stdio::binmode() had anything to do with the find.t failure (I
thought that I had already tested 8958 without seeing that failure.
Peter Prymmer
On Fri, 2 Mar 2001, Craig A. Berry wrote:
> 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]
>
