]> git.vpit.fr Git - perl/modules/Sub-Op.git/commitdiff
next_pkg and next_name are now obsolete
authorVincent Pit <vince@profvince.com>
Sat, 2 Jan 2010 00:11:06 +0000 (01:11 +0100)
committerVincent Pit <vince@profvince.com>
Sat, 2 Jan 2010 00:11:06 +0000 (01:11 +0100)
Op.xs

diff --git a/Op.xs b/Op.xs
index fe67d0838e80e459cefcb49c9bcee3d9af81d18a..8b761adfab1044a113921842b16003c5e56c0b00 100644 (file)
--- 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;
  }