In buildtoc, move the local $/ = ''; to the scope of the file it relates to.

diff --git a/pod/buildtoc b/pod/buildtoc
index a1acc44..a22ed2e 100644 (file)
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -322,8 +322,6 @@ my $OUT;
 sub output_perltoc {
   my $filename = shift;
 
-  local $/ = '';
-
   ($_= <<"EOPOD2B") =~ s/^\t//gm and $OUT .= $_;
 
        # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
@@ -420,6 +418,8 @@ my ($inhead1, $inhead2, $initem);
 sub podset {
     my ($pod, $file) = @_;
 
+    local $/ = '';
+
     open my $fh, '<', $file or die "Can't open file '$file' for $pod: $!";
 
     while(<$fh>) {