diff options
author | Karl Williamson <khw@cpan.org> | 2020-11-04 04:40:53 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-11-05 21:18:31 -0700 |
commit | 63447426f831ed216e79d45cb18fafd344cfc3e9 (patch) | |
tree | f73589817b87df3a61b511eec346b56b2c8a9a05 /autodoc.pl | |
parent | d633272ab9f14495ca5fdc898c93e4ed5fb23d4a (diff) | |
download | perl-63447426f831ed216e79d45cb18fafd344cfc3e9.tar.gz |
autodoc.pl: White-space, comments only
Diffstat (limited to 'autodoc.pl')
-rw-r--r-- | autodoc.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/autodoc.pl b/autodoc.pl index 90972c4789..0b5f18db08 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -599,6 +599,7 @@ my %configs; my @has_defs; my @has_r_defs; # Reentrant symbols my @include_defs; + sub parse_config_h { use re '/aa'; # Everthing is ASCII in this file @@ -1023,9 +1024,9 @@ sub parse_config_h { $configs{$name}{'section'} = $site_scn; } elsif ( $pod =~ / \b floating $dash_or_spaces point \b /ix - || $pod =~ / \b (double | single) $dash_or_spaces precision \b /ix - || $pod =~ / \b doubles \b /ix - || $pod =~ / \b (?: a | the | long ) \s+ (?: double | NV ) \b /ix) + || $pod =~ / \b (double | single) $dash_or_spaces precision \b /ix + || $pod =~ / \b doubles \b /ix + || $pod =~ / \b (?: a | the | long ) \s+ (?: double | NV ) \b /ix) { $configs{$name}{'section'} = $floating_scn; @@ -1081,6 +1082,7 @@ sub parse_config_h { $flags .= 'AdmnT'; $flags .= 'U' unless defined $configs{$name}{usage}; + # All the information has been gathered; save it $docs{'api'}{$section}{$name}{flags} = $flags; $docs{'api'}{$section}{$name}{pod} = $configs{$name}{pod}; $docs{'api'}{$section}{$name}{ret_type} = ""; |