diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2003-02-05 07:00:05 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-06 20:06:09 +0000 |
| commit | 53ecdda105bb4103d210aff4a70dce9565ed670e (patch) | |
| tree | 74b5f73fe289fe20098456165891e40ed7ae5179 | |
| parent | 7e558ce0ad27a6d4ff0ccaa818912d7e005a1004 (diff) | |
| download | perl-53ecdda105bb4103d210aff4a70dce9565ed670e.tar.gz | |
path tweak fix up for t/pod/find.t on VMS
Message-ID: <OFF5FDC924.68DBF580-ON85256CC4.005CC78E@factset.com>
p4raw-id: //depot/perl@18669
| -rw-r--r-- | t/pod/find.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/pod/find.t b/t/pod/find.t index df36147635..40184613bc 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); |