From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 21 Sep 2003 09:22:57 +0000 (+0000)
Subject: Handle also the curliffy files when tocing.
X-Git-Tag: accepted/trunk/20130322.191538~22944
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=16114dde8ca7b3eded13218a07f79301ce8c5946;p=platform%2Fupstream%2Fperl.git

Handle also the curliffy files when tocing.

p4raw-id: //depot/perl@21298
---

diff --git a/pod/buildtoc b/pod/buildtoc
index fa26d66..d66b712 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -343,6 +343,7 @@ sub podset {
     my $pod;
 
     while(<>) {
+	tr/\015//d;
 	if (s/^=head1 (NAME)\s*/=head2 /) {
 	    $pod = path2modname($ARGV);
 	    unhead1();