diff options
-rw-r--r-- | ext/B/B.pm | 2 | ||||
-rw-r--r-- | ext/B/B.xs | 5 |
2 files changed, 7 insertions, 0 deletions
diff --git a/ext/B/B.pm b/ext/B/B.pm index 03db1053b0..4512d916e6 100644 --- a/ext/B/B.pm +++ b/ext/B/B.pm @@ -654,6 +654,8 @@ This returns the op description from the global C PL_op_desc array =item sv +=item gv + =back =head2 B::PADOP METHOD diff --git a/ext/B/B.xs b/ext/B/B.xs index ba16dfa195..bf38981091 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -691,6 +691,7 @@ PMOP_precomp(o) sv_setpvn(ST(0), rx->precomp, rx->prelen); #define SVOP_sv(o) cSVOPo->op_sv +#define SVOP_gv(o) ((GV*)cSVOPo->op_sv) MODULE = B PACKAGE = B::SVOP PREFIX = SVOP_ @@ -698,6 +699,10 @@ B::SV SVOP_sv(o) B::SVOP o +B::SV +SVOP_gv(o) + B::SVOP o + #define PADOP_padix(o) o->op_padix #define PADOP_sv(o) (o->op_padix ? PL_curpad[o->op_padix] : Nullsv) #define PADOP_gv(o) ((o->op_padix \ |