Forgotten fragment.

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

diff --git a/t/pod/find.t b/t/pod/find.t
index c40c8b4..f5d4c52 100644 (file)
--- a/t/pod/find.t
+++ b/t/pod/find.t
@@ -24,7 +24,7 @@ if ($^O eq 'VMS') {
 }
 print "### searching $lib_dir\n";
 my %pods = pod_find("$lib_dir");
-my $result = join(',', sort values %pods);
+my $result = join("\n### ", sort values %pods);
 print "### found $result\n";
 my $compare = join(',', qw(
     Pod::Checker
@@ -38,8 +38,11 @@ my $compare = join(',', qw(
 ));
 if ($^O eq 'VMS') {
     $compare = lc($compare);
-    $result = join(',', sort grep {pod::} values %pods);
-    $result =~ s/$Qlib_dir/pod::/g;
+    $result = join(',', sort grep(/pod::/, values %pods));
+    my $undollared = $Qlib_dir;
+    $undollared =~ s/\$/\\\$/g;
+    $undollared =~ s/\-/\\\-/g;
+    $result =~ s/$undollared/pod::/g;
     my $count = 0;
     my @result = split(/,/,$result);
     my @compare = split(/,/,$compare);