Commit db097688cd for perl

commit db097688cd333f7a3f51816caacef9676f4c7fe9
Author: Karl Williamson <khw@cpan.org>
Date:   Tue Sep 8 08:42:19 2026 -0600

    Remove deprecated function get_op_descs

    This has been deprecated since 5.38

diff --git a/embed.fnc b/embed.fnc
index 99b1c04001..1c01fbfbec 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1542,7 +1542,6 @@ MTp	|int	|get_extended_os_errno
 p	|void	|get_hash_seed	|NN unsigned char * const seed_buffer
 AOdp	|HV *	|get_hv 	|NN const char *name			\
 				|I32 flags
-ADPRdp	|char **|get_op_descs
 ADPRdp	|char **|get_op_names
 CDPRp	|PPADDR_t *|get_ppaddr
 ERXp	|SV *	|get_prop_definition					\
diff --git a/embed.h b/embed.h
index f4d68059b3..34f04179d3 100644
--- a/embed.h
+++ b/embed.h
@@ -248,7 +248,6 @@
 # define get_cv(a,b)                            Perl_get_cv(aTHX_ a,b)
 # define get_cvn_flags(a,b,c)                   Perl_get_cvn_flags(aTHX_ a,b,c)
 # define get_hv(a,b)                            Perl_get_hv(aTHX_ a,b)
-# define get_op_descs()                         Perl_get_op_descs(aTHX)
 # define get_op_names()                         Perl_get_op_names(aTHX)
 # define get_ppaddr()                           Perl_get_ppaddr(aTHX)
 # define get_sv(a,b)                            Perl_get_sv(aTHX_ a,b)
diff --git a/proto.h b/proto.h
index d72c9272b7..e8f86f04c8 100644
--- a/proto.h
+++ b/proto.h
@@ -2124,16 +2124,6 @@ Perl_get_hv(pTHX_ const char *name, I32 flags)
                  PERL_UNUSED_CONTEXT_FOR_ARGS_ASSERT;  \
     } STMT_END

-PERL_CALLCONV char **
-Perl_get_op_descs(pTHX)
-        Perl_attribute_nonnull_aTHX
-        __attribute__deprecated__
-        __attribute__warn_unused_result__
-        __attribute__pure__;
-#define PERL_ARGS_ASSERT_GET_OP_DESCS           \
-    STMT_START { Perl_assert_aTHX; PERL_UNUSED_CONTEXT_FOR_ARGS_ASSERT;  \
-    } STMT_END
-
 PERL_CALLCONV char **
 Perl_get_op_names(pTHX)
         Perl_attribute_nonnull_aTHX
diff --git a/util.c b/util.c
index 6ad012d914..a589e9c8cf 100644
--- a/util.c
+++ b/util.c
@@ -3735,26 +3735,6 @@ Perl_get_op_names(pTHX)
     return (char **)PL_op_name;
 }

-/*
-=for apidoc get_op_descs
-
-Return a pointer to the array of all the descriptions of the various OPs
-Given an opcode from the enum in F<opcodes.h>, C<PL_op_desc[opcode]> returns a
-pointer to a C language string giving its description.
-
-=cut
-
-Deprecated since 5.38
-*/
-
-char **
-Perl_get_op_descs(pTHX)
-{
-    PERL_ARGS_ASSERT_GET_OP_DESCS;
-
-    return (char **)PL_op_desc;
-}
-
 PPADDR_t*
 Perl_get_ppaddr(pTHX)
 {