develooper Front page | perl.perl5.porters | Postings from February 2003

[PATCH: perl@186389] path tweak fix up for t/pod/find.t on VMS

February 5, 2003 09:00
[PATCH: perl@186389] path tweak fix up for t/pod/find.t on VMS
Message ID:

Because I set run my "mmk test" run from a set def to a device
named $1$DGA1002:[MYPERL] I was obtaining a test failure
on t/pod/find.t test 2.  The enclosed patch fixes the problem
by stripping all the '$' characters out of $result so that the
grep inside the loop will be able to find things, it also
gratuitously removes the redundant join() call used to
form $result initially (which does not differ from the same
expression as used on non-VMS platforms).

--- t/pod/find.t;1      Tue Feb  4 10:10:35 2003
+++ t/pod/find.t  Wed Feb  5 11:50:44 2003
@@ -40,11 +40,11 @@
 if ($^O eq 'VMS') {
     $compare = lc($compare);
-    $result = join(',', sort values %pods);
     my $undollared = $Qlib_dir;
     $undollared =~ s/\$/\\\$/g;
     $undollared =~ s/\-/\\\-/g;
     $result =~ s/$undollared/pod::/g;
+    $result =~ s/\$//g;
     my $count = 0;
     my @result = split(/,/,$result);
     my @compare = split(/,/,$compare);
End of Patch.

Peter Prymmer Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About