X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fcheckpods.PL;h=1466fb94d3d644334dc01e76c4ac2277adbe6939;hb=2d997502fd695609fa2064523de2ba2d8d094b6c;hp=610aad886d1b854b8f433e40e7f8438ba50ca33c;hpb=36816da205b48bbba09819941eb7375eda5afbd9;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pod/checkpods.PL b/pod/checkpods.PL index 610aad8..1466fb9 100644 --- a/pod/checkpods.PL +++ b/pod/checkpods.PL @@ -66,7 +66,7 @@ $exit = $last_unempty = 0; while (<>) { s/(\012|\015\012|\015)$//; if (/^=(\S+)/ && $directive{$1} && $last_unempty) { - printf "%s: line %5d, no blank line preceeding directive =%s\n", + printf "%s: line %5d, no blank line preceding directive =%s\n", $ARGV, $., $1; $exit = 1; }