From 8a225eae002d1a372613e653fedfb1a2ed6edc40 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 13 Jun 2001 01:25:12 +0000
Subject: [PATCH] Grok three kinds of line endings, should fix [ID
 20010612.003]

p4raw-id: //depot/perl@10550
---
 pod/checkpods.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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