From 5f951aa0d5804e69ae58fd3c1619b26a5abb3c13 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sun, 30 Apr 2023 20:36:56 -0600 Subject: Remove my_strftime8() The comment from Tony Cook https://github.com/Perl/perl5/issues/20373#issuecomment-1524256091 made me realize that this function doesn't fully work. It was added as public API earlier in the 5.37 series, but we don't want it making it into a stable release. This commit renames it so that the original name will no longer work, but POSIX.xs can still, by changing to use the new name.name --- embed.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'embed.h') diff --git a/embed.h b/embed.h index 2a0143245f..f0f3a948a1 100644 --- a/embed.h +++ b/embed.h @@ -376,7 +376,6 @@ # define my_setenv(a,b) Perl_my_setenv(aTHX_ a,b) # define my_socketpair Perl_my_socketpair # define my_strftime(a,b,c,d,e,f,g,h,i,j) Perl_my_strftime(aTHX_ a,b,c,d,e,f,g,h,i,j) -# define my_strftime8(a,b,c,d,e,f,g,h,i,j,k) Perl_my_strftime8(aTHX_ a,b,c,d,e,f,g,h,i,j,k) # define my_strtod Perl_my_strtod # define newANONATTRSUB(a,b,c,d) Perl_newANONATTRSUB(aTHX_ a,b,c,d) # define newANONHASH(a) Perl_newANONHASH(aTHX_ a) @@ -1691,6 +1690,7 @@ # define mg_find_mglob(a) Perl_mg_find_mglob(aTHX_ a) # define multiconcat_stringify(a) Perl_multiconcat_stringify(aTHX_ a) # define multideref_stringify(a,b) Perl_multideref_stringify(aTHX_ a,b) +# define my_strftime8_temp(a,b,c,d,e,f,g,h,i,j,k) Perl_my_strftime8_temp(aTHX_ a,b,c,d,e,f,g,h,i,j,k) # define op_clear(a) Perl_op_clear(aTHX_ a) # define qerror(a) Perl_qerror(aTHX_ a) # define reg_named_buff(a,b,c,d) Perl_reg_named_buff(aTHX_ a,b,c,d) -- cgit v1.2.1