No pod in internal Net::FTP classes.

[perl5.git] / pod / checkpods.PL

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;