diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-07 23:16:21 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-07 23:16:21 +0000 |
| commit | 562d31b88ec866a9804ab829f5cc992f3ccf2c2f (patch) | |
| tree | 3c64ad223e2235b91402e4d95d91eb691c3de2ee /ext/B | |
| parent | 5014db98d2c6d95f1afa45bfa9fe6b1ddb1a9dc2 (diff) | |
| download | perl-562d31b88ec866a9804ab829f5cc992f3ccf2c2f.tar.gz | |
typos in change#4546
p4raw-link: @4546 on //depot/perl: 11faa288e292c27cb2ddc4ccdc483b523d26ce19
p4raw-id: //depot/perl@4662
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B.xs | 5 | ||||
| -rw-r--r-- | ext/B/B/Bytecode.pm | 1 | ||||
| -rw-r--r-- | ext/B/B/C.pm | 2 |
3 files changed, 3 insertions, 5 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 7d0fc742fc..260c0c7b41 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -679,9 +679,8 @@ PMOP_precomp(o) if (rx) sv_setpvn(ST(0), rx->precomp, rx->prelen); -#define SVOP_sv(o) o->op_sv -#define SVOP_gv(o) ((SvTYPE(o->op_sv) == SVt_PVGV) \ - ? (GV*)o->op_sv : Nullgv) +#define SVOP_sv(o) cSVOPx_sv(o) +#define SVOP_gv(o) cGVOPx_gv(o) MODULE = B PACKAGE = B::SVOP PREFIX = SVOP_ diff --git a/ext/B/B/Bytecode.pm b/ext/B/B/Bytecode.pm index c085071f47..cb061f3038 100644 --- a/ext/B/B/Bytecode.pm +++ b/ext/B/B/Bytecode.pm @@ -299,7 +299,6 @@ cop_arybase %d cop_line $line cop_warnings $warningsix EOT - $stash->bytecode; } sub B::PMOP::bytecode { diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index f8607444f4..3feda2cc23 100644 --- a/ext/B/B/C.pm +++ b/ext/B/B/C.pm @@ -302,7 +302,7 @@ sub B::COP::save { $op->arybase, $op->line)); my $copix = $copsect->index; $init->add(sprintf("CopFILE_set(&cop_list[%d], %s);", $copix, cstring($op->file)), - sprintf("CopSTASHPV_set(&cop_list[%d], %s);", $copix, cstring($op->stashpv)); + sprintf("CopSTASHPV_set(&cop_list[%d], %s);", $copix, cstring($op->stashpv))); savesym($op, "(OP*)&cop_list[$copix]"); } |