On Wed, 16 Aug 2000, Tim Jenness wrote:
> On Wed, 16 Aug 2000, Peter Prymmer wrote:
>
> > Unfortunately it takes the return value of Cwd::cwd() and appends
> > a "/lib" in this statement:
> >
> > %pods = pod_find("$THISDIR/lib");
> >
> > which won't work with the RMS style return value $THISDIR on VMS,
> > nor will it work on Mac OS.
> >
>
> Ah yes.
>
> Try this:
>
>
> --- t/pod/find.t.ori Wed Aug 16 11:30:31 2000
> +++ t/pod/find.t Wed Aug 16 11:32:31 2000
> @@ -17,8 +17,9 @@
> my $THISDIR = Cwd::cwd();
> my $VERBOSE = 0;
>
> -print "*** searching $THISDIR/lib\n";
> -my %pods = pod_find("$THISDIR/lib");
> +my $LIBDIR = File::Spec->catdir($THISDIR, "lib");
> +print "*** searching $LIBDIR\n";
> +my %pods = pod_find("$LIBDIR");
> my $result = join(',', sort values %pods);
> print "*** found $result\n";
> my $compare = join(',', qw(
Thanks. That is a start, however, I am having a difficult time
getting Pod::Find to return anything in from test number 2 and
one-liner tests like it.
$ perl -e "use Pod::Find qw(pod_find); print
pod_find({'-verbose'=>2},('dkb100:[perl.lib]'))"
Can't cd to (dkb100:[perl.lib]/) user : no such file or directory
tests 2 and 4 are troublesome. I can coax 3 into passing by
adding VMS specific code (keep in mind that the handling of pod
on VMS is done by a separate Makefile hence $Config{privlib} is
not quite the place to look. I suspect that either File::Find
or Pod::Find will need some tweaking, in addition to portability
fixes like the one that you suggest for t/pod/find.t.
Peter Prymmer
