1 files changed, 1 insertions, 1 deletions
diff --git a/pod/buildtoc b/pod/buildtoc
index 851b42c847..d8e40142b5 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -206,7 +206,7 @@ sub podset {
     local $/ = '';
 
     while(<$fh>) {
-	tr/\015//d;
+	s/\r$//;
 	if (s/^=head1 (NAME)\s*/=head2 /) {
 	    unhead1();
 	    $OUT .= "\n\n=head2 ";