let B know about new op_code_list field

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 1dcaf99..3b5933c 100644 (file)
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -1163,6 +1163,10 @@ Since Perl 5.9.5
 
 Only when perl was compiled with ithreads.
 
+=item code_list
+
+Since perl 5.17.1
+
 =back
 
 =head2 B::SVOP METHOD

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 9afc500..b503611 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -864,6 +864,7 @@ threadsv_names()
 #define OP_private_ix          U8p | offsetof(struct op, op_private)
 
 #define PMOP_pmflags_ix                U32p | offsetof(struct pmop, op_pmflags)
+#define PMOP_code_list_ix      OPp | offsetof(struct pmop, op_code_list)
 
 #ifdef USE_ITHREADS
 #define PMOP_pmoffset_ix       IVp | offsetof(struct pmop, op_pmoffset)
@@ -922,6 +923,7 @@ next(o)
        B::LOOP::nextop = LOOP_nextop_ix
        B::LOOP::lastop = LOOP_lastop_ix
        B::PMOP::pmflags = PMOP_pmflags_ix
+       B::PMOP::code_list = PMOP_code_list_ix
        B::SVOP::sv = SVOP_sv_ix
        B::SVOP::gv = SVOP_gv_ix
        B::PADOP::padix = PADOP_padix_ix