Tweak S_init_main_stash so as allocate PL_curstname as a shared string

[perl5.git] / thrdvar.h

diff --git a/thrdvar.h b/thrdvar.h
index bdfb381..e12e85f 100644 (file)
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -147,7 +147,6 @@ PERLVAR(Tsortcop,   OP *)           /* user defined sort routine */
 PERLVAR(Tsortstash,    HV *)           /* which is in some package or other */
 PERLVAR(Tfirstgv,      GV *)           /* $a */
 PERLVAR(Tsecondgv,     GV *)           /* $b */
-PERLVAR(Tsortcxix,     I32)            /* from pp_ctl.c */
 
 /* float buffer */
 PERLVAR(Tefloatbuf,    char*)