This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: Ignore perldelta_template.pod
authorKarl Williamson <public@khwilliamson.com>
Fri, 17 Jun 2011 00:29:42 +0000 (18:29 -0600)
committerKarl Williamson <public@khwilliamson.com>
Fri, 17 Jun 2011 00:52:07 +0000 (18:52 -0600)
This file is not a pod, and was supposed to be ignored, but due to
an error in the logic that converts from native file system to
unix format, it was being processed.

t/porting/known_pod_issues.dat
t/porting/podcheck.t

index 0e7246d..8568a07 100644 (file)
@@ -332,9 +332,6 @@ porting/epigraphs.pod       Verbatim line length including indents exceeds 80 by    3
 porting/expand-macro.pl        Verbatim line length including indents exceeds 80 by    2
 porting/how_to_write_a_perldelta.pod   There is no NAME        1
 porting/how_to_write_a_perldelta.pod   Verbatim line length including indents exceeds 80 by    3
-porting/perldelta_template.pod Apparent broken link    7
-porting/perldelta_template.pod Pod NAME already used   1
-porting/perldelta_template.pod Verbatim line length including indents exceeds 80 by    1
 porting/pumpkin.pod    Verbatim line length including indents exceeds 80 by    9
 porting/release_managers_guide.pod     ? Should you be using L<...> instead of 2
 porting/release_managers_guide.pod     Verbatim line length including indents exceeds 80 by    11
index 2a1531d..b1022e1 100644 (file)
@@ -854,8 +854,8 @@ my %excluded_files = (
 
 # Convert to more generic form.
 foreach my $file (keys %excluded_files) {
-    $excluded_files{canonicalize($excluded_files{$file})}
-                                                    = $excluded_files{$file};
+    delete $excluded_files{$file};
+    $excluded_files{canonicalize($file)} = 1;
 }
 
 # re to match files that are to be parsed only if there is an internal link