diff options
author | Karl Williamson <khw@cpan.org> | 2022-11-02 13:39:55 -0600 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2022-11-05 14:33:10 -0400 |
commit | b65a15b678acb393729f0f74c0bfd167f5dac941 (patch) | |
tree | c7a10531cb388d6ba417099e7a98eddb00d500ad | |
parent | a0a15662a9734b83bd83642b9fecf9ba4a9b1a01 (diff) | |
download | perl-b65a15b678acb393729f0f74c0bfd167f5dac941.tar.gz |
buildtoc: Add error check
If something goes wrong, this wouldn't have known it
-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/ ) { |