Commit bd9bb06c1d for perl

commit bd9bb06c1ded3aa0d48627634155035ba2ee3311
Author: Karl Williamson <khw@cpan.org>
Date:   Tue Sep 8 08:44:41 2026 -0600

    Remove deprecated function get_op_names

    This has been deprecated since 5.38

diff --git a/embed.fnc b/embed.fnc
index 1c01fbfbec..7c7f5f51e2 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_names
 CDPRp	|PPADDR_t *|get_ppaddr
 ERXp	|SV *	|get_prop_definition					\
 				|const int table_index
diff --git a/embed.h b/embed.h
index 34f04179d3..2d6c38e31d 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_names()                         Perl_get_op_names(aTHX)
 # define get_ppaddr()                           Perl_get_ppaddr(aTHX)
 # define get_sv(a,b)                            Perl_get_sv(aTHX_ a,b)
 # define get_vtbl(a)                            Perl_get_vtbl(aTHX_ a)
diff --git a/proto.h b/proto.h
index e8f86f04c8..b06cd80b58 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_names(pTHX)
-        Perl_attribute_nonnull_aTHX
-        __attribute__deprecated__
-        __attribute__warn_unused_result__
-        __attribute__pure__;
-#define PERL_ARGS_ASSERT_GET_OP_NAMES           \
-    STMT_START { Perl_assert_aTHX; PERL_UNUSED_CONTEXT_FOR_ARGS_ASSERT;  \
-    } STMT_END
-
 PERL_CALLCONV PPADDR_t *
 Perl_get_ppaddr(pTHX)
         Perl_attribute_nonnull_aTHX
diff --git a/util.c b/util.c
index a589e9c8cf..5a65b33846 100644
--- a/util.c
+++ b/util.c
@@ -3715,26 +3715,6 @@ Perl_set_context(void *t)

 #endif /* !PERL_GET_CONTEXT_DEFINED */

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