diff options
author | Karl Williamson <khw@cpan.org> | 2022-06-08 06:57:59 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-06-14 07:38:50 -0600 |
commit | 3734d2f5d38a7779376358fb891b3d3a38e6c0d8 (patch) | |
tree | fa494e354d196c12751d94e9820d8198d76396a5 /autodoc.pl | |
parent | 82943faa9f6f51aebb7960cc8eee73dd44c024e4 (diff) | |
download | perl-3734d2f5d38a7779376358fb891b3d3a38e6c0d8.tar.gz |
Change autodoc flag
This should be being used only in core, as its only use is for autodoc.
Change the flag name to be more mnemonic, freeing up its current name
for another use.
Diffstat (limited to 'autodoc.pl')
-rw-r--r-- | autodoc.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/autodoc.pl b/autodoc.pl index 8dea08cd10..0a8d74597b 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -369,7 +369,7 @@ my $apidoc_re = qr/ ^ (\s*) # $1 (.*?) # $7 \s* \n /x; # Only certain flags, dealing with display, are acceptable for apidoc_item -my $display_flags = "fFnDopsTx"; +my $display_flags = "fFnDopTx;"; sub check_api_doc_line ($$) { my ($file, $in) = @_; @@ -529,7 +529,7 @@ sub autodoc ($$) { # parse a file and extract documentation info } die "flag '$1' is not legal (for function $element_name (from $file))" - if $flags =~ / ( [^AabCDdEeFfGhiIMmNnTOoPpRrSsUuWXxy] ) /x; + if $flags =~ / ( [^AabCDdEeFfGhiIMmNnTOoPpRrSUuWXxy;] ) /x; die "'u' flag must also have 'm' or 'y' flags' for $element_name" if $flags =~ /u/ && $flags !~ /[my]/; @@ -664,7 +664,7 @@ sub autodoc ($$) { # parse a file and extract documentation info # Don't output a usage example for linked to documentation if # it is trivial (has no arguments) and we aren't to add a # semicolon - $flags .= 'U' if $flags =~ /n/ && $flags !~ /[Us]/; + $flags .= 'U' if $flags =~ /n/ && $flags !~ /[U;]/; # Keep track of all the pod files that we refer to. push $described_elsewhere{$podname}->@*, $podname; @@ -1328,8 +1328,8 @@ sub docout ($$$) { # output the docs for one function group if ($flags =~ /[Uy]/) { # no usage; typedefs are considered simple enough # to never warrant a usage line - warn("U and s flags are incompatible") - if $flags =~ /U/ && $flags =~ /s/; + warn("U and ; flags are incompatible") + if $flags =~ /U/ && $flags =~ /;/; # nothing } else { @@ -1492,7 +1492,7 @@ sub docout ($$$) { # output the docs for one function group print $fh ")"; } - print $fh ";" if $item_flags =~ /s/; # semicolon: "dTHR;" + print $fh ";" if $item_flags =~ /;/; # semicolon: "dTHR;" print $fh "\n"; # Only the first entry is normally displayed |