=head1 AUTHORS
+Please report bugs using L<http://rt.cpan.org>.
+
Brad Appleton E<lt>bradapp@enteract.comE<gt>,
-Marek Rouchal E<lt>marek@saftsack.fs.uni-bayreuth.deE<gt>
+Marek Rouchal E<lt>marekr@cpan.orgE<gt>
Based on code for B<Pod::Text::pod2text(1)> written by
Tom Christiansen E<lt>tchrist@mox.perl.comE<gt>
## Invoke podchecker()
my $status = 0;
@ARGV = qw(-) unless(@ARGV);
-for (@ARGV) {
- if($_ eq '-') {
- $_ = "<&STDIN";
+for my $podfile (@ARGV) {
+ if($podfile eq '-') {
+ $podfile = "<&STDIN";
}
- elsif(-d) {
- warn "podchecker: Warning: Ignoring directory '$_'\n";
+ elsif(-d $podfile) {
+ warn "podchecker: Warning: Ignoring directory '$podfile'\n";
next;
}
- my $s = podchecker($_, undef, '-warnings' => $options{warnings});
- if($s > 0) {
+ my $errors = podchecker($podfile, undef, '-warnings' => $options{warnings});
+ if($errors > 0) {
# errors occurred
+ printf STDERR ("%s has %d pod syntax %s.\n",
+ $podfile, $errors, ($errors == 1) ? "error" : "errors");
$status = 1;
}
- elsif($s < 0) {
+ elsif($errors < 0) {
+ print STDERR "$podfile does not contain any pod commands.\n";
# no pod found
$status = 2 unless($status);
}
+ else {
+ print STDERR "$podfile pod syntax OK.\n";
+ }
}
exit $status;