X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fcheckpods.PL;h=692a706fc51df5bf10506116019689b90e0bba4f;hb=a2efc82216efc10377cf26fd4aff1aa5e66c6687;hp=92b7ae6e4c1272d13f45a33ae7c52d08e2ec6449;hpb=8a5546a1774bc5278c3b557b5a3cac8da26aa636;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/checkpods.PL b/pod/checkpods.PL
index 92b7ae6..692a706 100644
--- 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;