From: Peter Prymmer <PPrymmer@factset.com>
Date: Wed, 5 Feb 2003 12:00:05 +0000 (-0500)
Subject: path tweak fix up for t/pod/find.t on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53ecdda105bb4103d210aff4a70dce9565ed670e;p=p5sagit%2Fp5-mst-13.2.git

path tweak fix up for t/pod/find.t on VMS
Message-ID: <OFF5FDC924.68DBF580-ON85256CC4.005CC78E@factset.com>

p4raw-id: //depot/perl@18669
---

diff --git a/t/pod/find.t b/t/pod/find.t
index df36147..4018461 100644
--- a/t/pod/find.t
+++ b/t/pod/find.t
@@ -40,11 +40,11 @@ my $compare = join(',', sort qw(
 ));
 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);