diff --git a/embed.fnc b/embed.fnc
index 54e59fca5589..455a8c31f07c 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2440,8 +2440,6 @@ np	|void	|my_swabn	|NN void* ptr|int n
 Ap	|GV*	|gv_fetchpvn_flags|NN const char* name|STRLEN len|I32 flags|const svtype sv_type
 Ap	|GV*	|gv_fetchsv|NN SV *name|I32 flags|const svtype sv_type
 
-ApR	|bool	|stashpv_hvname_match|NN const COP *c|NN const HV *hv
-
 #ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
 : Used in sv.c
 p	|void	|dump_sv_child	|NN SV *sv
diff --git a/embed.h b/embed.h
index 72aba7a8b277..1815481d2f6e 100644
--- a/embed.h
+++ b/embed.h
@@ -531,7 +531,6 @@
 #define sortsv_flags(a,b,c,d)	Perl_sortsv_flags(aTHX_ a,b,c,d)
 #define stack_grow(a,b,c)	Perl_stack_grow(aTHX_ a,b,c)
 #define start_subparse(a,b)	Perl_start_subparse(aTHX_ a,b)
-#define stashpv_hvname_match(a,b)	Perl_stashpv_hvname_match(aTHX_ a,b)
 #define str_to_version(a)	Perl_str_to_version(aTHX_ a)
 #define sv_2bool_flags(a,b)	Perl_sv_2bool_flags(aTHX_ a,b)
 #define sv_2cv(a,b,c,d)		Perl_sv_2cv(aTHX_ a,b,c,d)
diff --git a/proto.h b/proto.h
index 5e9892fd3bf3..539d06d456db 100644
--- a/proto.h
+++ b/proto.h
@@ -3667,13 +3667,6 @@ PERL_CALLCONV PerlIO*	Perl_start_glob(pTHX_ SV *tmpglob, IO *io)
 	assert(tmpglob); assert(io)
 
 PERL_CALLCONV I32	Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
-PERL_CALLCONV bool	Perl_stashpv_hvname_match(pTHX_ const COP *c, const HV *hv)
-			__attribute__warn_unused_result__
-			__attribute__nonnull__(pTHX_1)
-			__attribute__nonnull__(pTHX_2);
-#define PERL_ARGS_ASSERT_STASHPV_HVNAME_MATCH	\
-	assert(c); assert(hv)
-
 PERL_CALLCONV NV	Perl_str_to_version(pTHX_ SV *sv)
 			__attribute__warn_unused_result__
 			__attribute__nonnull__(pTHX_1);
diff --git a/util.c b/util.c
index 8dcbef4ba9a8..d0fea67dd149 100644
--- a/util.c
+++ b/util.c
@@ -5694,16 +5694,6 @@ Perl_get_hash_seed(pTHX)
      return myseed;
 }
 
-#ifdef USE_ITHREADS
-bool
-Perl_stashpv_hvname_match(pTHX_ const COP *c, const HV *hv)
-{
-    PERL_ARGS_ASSERT_STASHPV_HVNAME_MATCH;
-    return CopSTASH(c) == hv;
-}
-#endif
-
-
 #ifdef PERL_GLOBAL_STRUCT
 
 #define PERL_GLOBAL_STRUCT_INIT