diff options
| author | Karl Williamson <khw@cpan.org> | 2020-09-06 20:26:08 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-09-06 20:31:38 -0600 |
| commit | eb0444cb23a8ec47ef18d5aa33ec88aa5e71b7e8 (patch) | |
| tree | f2777a2ee7f1c71d27bbbbfbfbc5a6723ffb3365 /regen/mg_vtable.pl | |
| parent | 4f7dafea39b73f82307e04061cb36ac6865108b9 (diff) | |
| download | perl-eb0444cb23a8ec47ef18d5aa33ec88aa5e71b7e8.tar.gz | |
regen/mg_vtable.pl: Fix perlapidoc display
This wasn't generating the right thing
Diffstat (limited to 'regen/mg_vtable.pl')
| -rw-r--r-- | regen/mg_vtable.pl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index b2515ebe4f..df2e6eab98 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -427,9 +427,15 @@ EOH } print "\n\n"; - print "=for apidoc Amnh||PERL_MAGIC_$names[0]\n"; - for (my $i = 1; $i < @names; $i++) { - print "=for apidoc_item ||PERL_MAGIC_$_\n"; + my $first = 1; + for my $magic (sort @names) { + if ($first) { + $first = 0; + print "=for apidoc AmnhU||PERL_MAGIC_$magic\n"; + } + else { + print "=for apidoc_item ||PERL_MAGIC_$magic\n"; + } } print "\n"; |