projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
s/z/tz/
[p5sagit/p5-mst-13.2.git]
/
pod
/
checkpods.PL
diff --git
a/pod/checkpods.PL
b/pod/checkpods.PL
index
92b7ae6
..
692a706
100644
(file)
--- a/
pod/checkpods.PL
+++ b/
pod/checkpods.PL
@@
-64,7
+64,7
@@
print OUT <<'!NO!SUBS!';
$exit = $last_unempty = 0;
while (<>) {
- chomp;
+ s/(\012|\015\012|\015)$//;
if (/^=(\S+)/ && $directive{$1} && $last_unempty) {
printf "%s: line %5d, no blank line preceeding directive =%s\n",
$ARGV, $., $1;