diff options
-rw-r--r-- | pod/buildtoc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pod/buildtoc b/pod/buildtoc index a44e1b7dfb..851b42c847 100644 --- a/pod/buildtoc +++ b/pod/buildtoc @@ -211,6 +211,7 @@ sub podset { unhead1(); $OUT .= "\n\n=head2 "; $_ = <$fh>; + last unless defined $_; # Remove svn keyword expansions from the Perl FAQ s/ \(\$Revision: \d+ \$\)//g; if ( /^\s*\Q$pod\E\b/ ) { |