Grok three kinds of line endings, should fix [ID 20010612.003]

p4raw-id: //depot/perl@10550

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;