diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-21 07:08:38 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-21 07:08:38 +0000 |
| commit | 065a186345fa61f4426f4c00342c2fe1fc0b8652 (patch) | |
| tree | f545ba2b4d4e76510e3bfce1635d15aacdb18edb | |
| parent | 18228111eab2b4346ec4a982338c6a12fe2ee3a2 (diff) | |
| download | perl-065a186345fa61f4426f4c00342c2fe1fc0b8652.tar.gz | |
undo accidental delete
p4raw-id: //depot/perl@5179
| -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 \ |