From 065a186345fa61f4426f4c00342c2fe1fc0b8652 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 21 Feb 2000 07:08:38 +0000
Subject: [PATCH] undo accidental delete

p4raw-id: //depot/perl@5179
---
 ext/B/B.pm | 2 ++
 ext/B/B.xs | 5 +++++
 2 files changed, 7 insertions(+)

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 03db105..4512d91 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 ba16dfa1..bf38981 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 \
-- 
2.7.4