Commit 3d0d83621d for perl

commit 3d0d83621da5ccb441f66e6ace2ee2469b6e7413
Author: Karl Williamson <khw@cpan.org>
Date:   Tue Sep 8 08:39:23 2026 -0600

    Remove deprecated function get_no_modify

    This has been deprecated since 5.38

diff --git a/embed.fnc b/embed.fnc
index 767ee9ef8c..b035568b33 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
-DPRp	|const char *|get_no_modify
 DPRp	|U32 *	|get_opargs
 ADPRdp	|char **|get_op_descs
 ADPRdp	|char **|get_op_names
diff --git a/embed.h b/embed.h
index 99d39573dc..17e6f5e47b 100644
--- a/embed.h
+++ b/embed.h
@@ -1058,7 +1058,6 @@
 #   define force_locale_unlock()                Perl_force_locale_unlock(aTHX)
 #   define free_tied_hv_pool()                  Perl_free_tied_hv_pool(aTHX)
 #   define get_hash_seed(a)                     Perl_get_hash_seed(aTHX_ a)
-#   define get_no_modify()                      Perl_get_no_modify(aTHX)
 #   define get_opargs()                         Perl_get_opargs(aTHX)
 #   define gv_override(a,b)                     Perl_gv_override(aTHX_ a,b)
 #   define gv_setref(a,b)                       Perl_gv_setref(aTHX_ a,b)
diff --git a/proto.h b/proto.h
index c3aa1cb79b..c3c80b8b72 100644
--- a/proto.h
+++ b/proto.h
@@ -2124,17 +2124,6 @@ Perl_get_hv(pTHX_ const char *name, I32 flags)
                  PERL_UNUSED_CONTEXT_FOR_ARGS_ASSERT;  \
     } STMT_END

-PERL_CALLCONV const char *
-Perl_get_no_modify(pTHX)
-        Perl_attribute_nonnull_aTHX
-        __attribute__deprecated__
-        __attribute__warn_unused_result__
-        __attribute__pure__
-        __attribute__visibility__("hidden");
-#define PERL_ARGS_ASSERT_GET_NO_MODIFY          \
-    STMT_START { Perl_assert_aTHX; PERL_UNUSED_CONTEXT_FOR_ARGS_ASSERT;  \
-    } STMT_END
-
 PERL_CALLCONV char **
 Perl_get_op_descs(pTHX)
         Perl_attribute_nonnull_aTHX
diff --git a/util.c b/util.c
index 50194acf61..2971197219 100644
--- a/util.c
+++ b/util.c
@@ -3755,14 +3755,6 @@ Perl_get_op_descs(pTHX)
     return (char **)PL_op_desc;
 }

-const char *
-Perl_get_no_modify(pTHX)
-{
-    PERL_ARGS_ASSERT_GET_NO_MODIFY; /* Deprecated since 5.38 */
-
-    return PL_no_modify;
-}
-
 U32 *
 Perl_get_opargs(pTHX)
 {