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(
--
Tim Jenness
JCMT software engineer/Support scientist
http://www.jach.hawaii.edu/~timj
