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

diff --git a/pod/checkpods.PL b/pod/checkpods.PL
index 92b7ae6..610aad8 100644
--- a/pod/checkpods.PL
+++ b/pod/checkpods.PL
@@ -48,7 +48,7 @@ print OUT <<'!NO!SUBS!';
 # problem currently exists.
 #
 #  Version 1.00  Original.
-#  Version 1.01  Andy Dougherty <doughera@lafcol.lafayette.edu>
+#  Version 1.01  Andy Dougherty <doughera@lafayette.edu>
 #    Trivial modifications to output format for easier auto-parsing
 #    Broke it out as a separate function to avoid nasty
 #	Make/Shell/Perl quoting problems, and also to make it easier
@@ -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;