podcheck.t: Ignore perldelta_template.pod

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.

diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat
index 0e7246d..8568a07 100644 (file)
--- a/t/porting/known_pod_issues.dat
+++ b/t/porting/known_pod_issues.dat
@@ -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

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 2a1531d..b1022e1 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -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