Update to PodParser 1.18, from Brad Appleton.
Jarkko Hietaniemi [Fri, 1 Sep 2000 16:00:42 +0000 (16:00 +0000)]
p4raw-id: //depot/perl@6978

lib/Pod/Checker.pm
t/pod/find.t

index 01ac486..37ed68f 100644 (file)
@@ -202,7 +202,7 @@ These may not necessarily cause trouble, but indicate mediocre style.
 
 =over 4
 
-=item * multiple occurrence of link target I<name>
+=item * multiple occurence of link target I<name>
 
 The POD file has some C<=item> and/or C<=head> commands that have
 the same text. Potential hyperlinks to such a text cannot be unique then.
index c40c8b4..e0ab63e 100644 (file)
@@ -38,7 +38,7 @@ my $compare = join(',', qw(
 ));
 if ($^O eq 'VMS') {
     $compare = lc($compare);
-    $result = join(',', sort grep {pod::} values %pods);
+    $result = join(',', sort grep(/pod::/, values %pods));
     $result =~ s/$Qlib_dir/pod::/g;
     my $count = 0;
     my @result = split(/,/,$result);