Handle also the curliffy files when tocing.

p4raw-id: //depot/perl@21298

diff --git a/pod/buildtoc b/pod/buildtoc
index fa26d66..d66b712 100644 (file)
--- 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();