From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 13 Jun 2001 01:25:12 +0000 (+0000)
Subject: Grok three kinds of line endings, should fix [ID 20010612.003]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a225eae002d1a372613e653fedfb1a2ed6edc40;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;