diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-06-16 18:29:42 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-06-16 18:52:07 -0600 |
| commit | 03ca349ac05d45c55183105f95dc1784f97aa4e3 (patch) | |
| tree | 68a751daa9f29ea9eca372eabb6a90fd77fd6615 | |
| parent | 9172cbee7e02cd0d6a51d96b8ea7a04391f87ee3 (diff) | |
| download | perl-03ca349ac05d45c55183105f95dc1784f97aa4e3.tar.gz | |
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.
| -rw-r--r-- | t/porting/known_pod_issues.dat | 3 | ||||
| -rw-r--r-- | t/porting/podcheck.t | 4 |
2 files changed, 2 insertions, 5 deletions
diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index 0e7246d5c8..8568a0750c 100644 --- 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 2a1531d3ab..b1022e1c21 100644 --- 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 |