From: Vincent Pit <vince@profvince.com>
Date: Sat, 2 Jan 2010 00:11:06 +0000 (+0100)
Subject: next_pkg and next_name are now obsolete
X-Git-Tag: v0.01~13
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=commitdiff_plain;h=cf6a8cf942e28d57dc90e19e87237c87a3219cea

next_pkg and next_name are now obsolete
---

diff --git a/Op.xs b/Op.xs
index fe67d08..8b761ad 100644
--- a/Op.xs
+++ b/Op.xs
@@ -55,8 +55,6 @@
 
 typedef struct {
  HV  *map;
- AV  *next_pkg;
- AV  *next_name;
  CV  *placeholder;
 #if SO_THREADSAFE
  tTHX owner;
@@ -349,8 +347,6 @@ BOOT:
 
  MY_CXT_INIT;
  MY_CXT.map         = newHV();
- MY_CXT.next_pkg    = newAV();
- MY_CXT.next_name   = newAV();
  MY_CXT.placeholder = NULL;
 #if SO_THREADSAFE
  MY_CXT.owner       = aTHX;
@@ -381,8 +377,6 @@ CODE:
  {
   MY_CXT_CLONE;
   MY_CXT.map         = map;
-  MY_CXT.next_pkg    = newAV();
-  MY_CXT.next_name   = newAV();
   MY_CXT.placeholder = placeholder;
   MY_CXT.owner       = aTHX;
  }