Bug #31135 for Test-Pod: all_pod_files_ok() doesn't recognize pod files as pod

Umh... It seems to me that either the bug submitter didn't understand the logic of the _is_perl function or that it changed over the time. The function reads: ------------------------------------------------------------ sub _is_perl { my $file = shift; return 1 if $file =~ /\.PL$/; return 1 if $file =~ /\.p(l|m|od)$/; return 1 if $file =~ /\.t$/; local *FH; open FH, $file or return; my $first = <FH>; close FH; return 1 if defined $first && ($first =~ /^#!.*perl/); return; } ------------------------------------------------------------ This means, the function will return true if: - The file is called *.PL, *.pm, *.pm, *.pod or *.t - The file starts with "#!.*perl" (i.e. #!/usr/bin/perl) So... Well, yes, the module uses some sometimes-incorrect-heuristics, but this bug "per se" does not exist. Still, maybe it'd be good to add an option not to require _is_perl to be run on each file - but this is up to upstream, I guess. I'll send a copy of this idea to the bug on rt.cpan.org, and close the bug in the Debian BTS. Greetings,

This isn't a problem. The check for the shebang line is to find other sources of pod, specifically extensionless shell scripts that are actually Perl.