diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 01:25:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 01:25:12 +0000 |
| commit | 8a225eae002d1a372613e653fedfb1a2ed6edc40 (patch) | |
| tree | 07256808fad4dbb0d9a1787d4ce276828521d036 | |
| parent | f022b9987cfef8a7e7c7c892f22c2e71c583bfc7 (diff) | |
| download | perl-8a225eae002d1a372613e653fedfb1a2ed6edc40.tar.gz | |
Grok three kinds of line endings, should fix [ID 20010612.003]
p4raw-id: //depot/perl@10550
| -rw-r--r-- | pod/checkpods.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/checkpods.PL b/pod/checkpods.PL index 92b7ae6e4c..692a706fc5 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; |