Zap PL_glob_index
authorFather Chrysostomos <sprout@cpan.org>
Sun, 9 Dec 2012 00:43:00 +0000 (16:43 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 10 Dec 2012 02:47:20 +0000 (18:47 -0800)
As of the previous commit, nothing is using it.

embedvar.h
intrpvar.h
sv.c

index 05438e2..9fc6709 100644 (file)
 #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)
index d905208..004989c 100644 (file)
@@ -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) {