diff options
| author | Karl Williamson <khw@cpan.org> | 2022-05-07 10:10:28 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-05-07 10:13:59 -0600 |
| commit | cee1b1cc973a4e27c4e32a871b7e6c557daa4db7 (patch) | |
| tree | b42f3992aa0f3ebea8b087c293c1261befff66b5 /autodoc.pl | |
| parent | 072be79ca84352d0baab09d7f961bdc472a40b3f (diff) | |
| download | perl-cee1b1cc973a4e27c4e32a871b7e6c557daa4db7.tar.gz | |
autodoc: Rmv obsolete line
This defines a variable if not defined, and dates from earlier logic,
and wasn't removed when that logic changed. This line hid bugs that the
next line is supposed to catch.
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/autodoc.pl b/autodoc.pl index 0a50e51e6e..b99ffa5088 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -619,7 +619,6 @@ sub autodoc ($$) { # parse a file and extract documentation info # Here, we have accumulated into $text, the pod for $element_name my $where = $flags =~ /A/ ? 'api' : 'guts'; - $section = "Functions in file $file" unless defined $section; die "No =for apidoc_section nor =head1 in $file for '$element_name'\n" unless defined $section; if (exists $docs{$where}{$section}{$element_name}) { |