buildtoc: Add error check

If something goes wrong, this wouldn't have known it
khwilliamson · Nov 5, 2022 · b65a15b · b65a15b
1 parent a0a1566
commit b65a15b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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/ ) {