Re: [perl #17934] tied STDERR and internal warnings

[p5sagit/p5-mst-13.2.git] / t / pod / find.t

diff --git a/t/pod/find.t b/t/pod/find.t
index 1bac930..4018461 100644 (file)
--- 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);
@@ -53,6 +53,9 @@ if ($^O eq 'VMS') {
     }
     ok($count/($#result+1)-1,$#compare);
 }
+elsif ($^O eq 'dos') {
+    ok(lc $result,lc $compare);
+}
 else {
     ok($result,$compare);
 }