Zap PL_glob_index

As of the previous commit, nothing is using it.

diff --git a/embedvar.h b/embedvar.h
index 05438e2..9fc6709 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -178,7 +178,6 @@
 #define PL_formtarget          (vTHX->Iformtarget)
 #define PL_generation          (vTHX->Igeneration)
 #define PL_gensym              (vTHX->Igensym)
-#define PL_glob_index          (vTHX->Iglob_index)
 #define PL_globalstash         (vTHX->Iglobalstash)
 #define PL_globhook            (vTHX->Iglobhook)
 #define PL_hintgv              (vTHX->Ihintgv)

diff --git a/intrpvar.h b/intrpvar.h
index d905208..004989c 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -764,8 +764,6 @@ PERLVAR(I, custom_ops,      HV *)           /* custom op registrations */
 /* Hook for File::Glob */
 PERLVARI(I, globhook,  globhook_t, NULL)
 
-PERLVARI(I, glob_index,        int,    0)
-
 PERLVAR(I, reentrant_retint, int)      /* Integer return value from reentrant functions */
 
 /* The last unconditional member of the interpreter structure when 5.10.0 was

diff --git a/sv.c b/sv.c
index 16585ea..73fa710 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -13298,7 +13298,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_last_swash_tmps = (U8*)NULL;
     PL_last_swash_slen = 0;
 
-    PL_glob_index      = proto_perl->Iglob_index;
     PL_srand_called    = proto_perl->Isrand_called;
 
     if (flags & CLONEf_COPY_STACKS) {