diff --git a/embedvar.h b/embedvar.h
index df13032e0d..05f9ed6ef1 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -361,7 +361,6 @@
 # define PL_WB_invlist                          (vTHX->IWB_invlist)
 # define PL_wcrtomb_ps                          (vTHX->Iwcrtomb_ps)
 # define PL_XPosix_ptrs                         (vTHX->IXPosix_ptrs)
-# define PL_Xpv                                 (vTHX->IXpv)
 # define PL_xsubfilename                        (vTHX->Ixsubfilename)
 # if !defined(PL_sawampersand)
 #   define PL_sawampersand                      (vTHX->Isawampersand)
diff --git a/intrpvar.h b/intrpvar.h
index d939023705..482f46d718 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -968,8 +968,6 @@ PERLVAR(I, blockhooks,	AV *)
 
 PERLVAR(I, custom_ops,	HV *)		/* custom op registrations */
 
-PERLVAR(I, Xpv,		XPV *)		/* (unused) held temporary value */
-
 /* name of the scopes we've ENTERed. Only used with -DDEBUGGING, but needs to be
    present always, as -DDEBUGGING must be binary compatible with non.  */
 PERLVARI(I, scopestack_name, const char **, NULL)
diff --git a/mg.c b/mg.c
index 4510f973cd..d972781ff1 100644
--- a/mg.c
+++ b/mg.c
@@ -3676,7 +3676,6 @@ Perl_perly_sighandler(int sig, Siginfo_t *sip PERL_UNUSED_DECL,
     CV *cv = NULL;
     OP *myop = PL_op;
     U32 flags = 0;
-    XPV * const tXpv = PL_Xpv;
     I32 old_ss_ix = PL_savestack_ix;
     SV *errsv_save = NULL;
 
@@ -3831,7 +3830,6 @@ Perl_perly_sighandler(int sig, Siginfo_t *sip PERL_UNUSED_DECL,
     PL_op = myop;			/* Apparently not needed... */
 
     PL_Sv = tSv;			/* Restore global temporaries. */
-    PL_Xpv = tXpv;
     return;
 }
 
diff --git a/sv.c b/sv.c
index e91b301e0e..327abb8fdb 100644
--- a/sv.c
+++ b/sv.c
@@ -15926,7 +15926,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_op		= proto_perl->Iop;
 
     PL_Sv		= NULL;
-    PL_Xpv		= (XPV*)NULL;
     my_perl->Ina	= proto_perl->Ina;
 
     PL_statcache	= proto_perl->Istatcache;