X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=Op.xs;h=8b761adfab1044a113921842b16003c5e56c0b00;hp=fe67d0838e80e459cefcb49c9bcee3d9af81d18a;hb=cf6a8cf942e28d57dc90e19e87237c87a3219cea;hpb=61188a20996808b5a4ad19cc35d272ff7d83b8f1 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; }