perlapi: Combine grok_numeric_radix, GROK_NUMERIC_RADIX

These behave identically
Perl · Jun 25, 2024 · 07c2d06 · 07c2d06
1 parent fd7b57a
commit 07c2d06
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 7 deletions.
diff --git a/numeric.c b/numeric.c
@@ -655,7 +655,10 @@ Perl_scan_hex(pTHX_ const char *start, STRLEN len, STRLEN *retlen)
 }
 
 /*
-=for apidoc grok_numeric_radix
+=for apidoc      grok_numeric_radix
+=for apidoc_item GROK_NUMERIC_RADIX
+
+These are identical.
 
 Scan and skip for a numeric decimal separator (radix).
 

diff --git a/perl.h b/perl.h
@@ -8230,12 +8230,7 @@ EXTERN_C int flock(int fd, int op);
 #define IS_NUMBER_TRAILING            0x40 /* number has trailing trash */
 
 /*
-=for apidoc_section $numeric
-
-=for apidoc AmdR|bool|GROK_NUMERIC_RADIX|NN const char **sp|NN const char *send
-
-A synonym for L</grok_numeric_radix>
-
+=for apidoc_defn AmdR|bool|GROK_NUMERIC_RADIX|NN const char **sp|NN const char *send
 =cut
 */
 #define GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp, send)