undo accidental delete

p4raw-id: //depot/perl@5179

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 03db105..4512d91 100644 (file)
--- 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 ba16dfa..bf38981 100644 (file)
--- 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 \