In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a55ce5b7e3bbc3afc7528d43a301feef63167f32?hp=565e104c566e57989089cdc415a5561a0c5c9126>
- Log ----------------------------------------------------------------- commit a55ce5b7e3bbc3afc7528d43a301feef63167f32 Author: Lukas Mai <[email protected]> Date: Sat Oct 25 12:25:14 2014 +0200 Move newDEFSVOP into the right perlapi.pod section ----------------------------------------------------------------------- Summary of changes: op.c | 48 ++++++++++++++++++++++++------------------------ 1 file changed, 24 insertions(+), 24 deletions(-) diff --git a/op.c b/op.c index 3e40450..1d5a861 100644 --- a/op.c +++ b/op.c @@ -3720,30 +3720,6 @@ Perl_blockhook_register(pTHX_ BHK *hk) Perl_av_create_and_push(aTHX_ &PL_blockhooks, newSViv(PTR2IV(hk))); } -/* -=for apidoc Am|OP *|newDEFSVOP| - -Constructs and returns an op to access C<$_>, either as a lexical -variable (if declared as C<my $_>) in the current scope, or the -global C<$_>. - -=cut -*/ - -OP * -Perl_newDEFSVOP(pTHX) -{ - const PADOFFSET offset = pad_findmy_pvs("$_", 0); - if (offset == NOT_IN_PAD || PAD_COMPNAME_FLAGS_isOUR(offset)) { - return newSVREF(newGVOP(OP_GV, 0, PL_defgv)); - } - else { - OP * const o = newOP(OP_PADSV, 0); - o->op_targ = offset; - return o; - } -} - void Perl_newPROG(pTHX_ OP *o) { @@ -5494,6 +5470,30 @@ Perl_newSVOP(pTHX_ I32 type, I32 flags, SV *sv) return CHECKOP(type, svop); } +/* +=for apidoc Am|OP *|newDEFSVOP| + +Constructs and returns an op to access C<$_>, either as a lexical +variable (if declared as C<my $_>) in the current scope, or the +global C<$_>. + +=cut +*/ + +OP * +Perl_newDEFSVOP(pTHX) +{ + const PADOFFSET offset = pad_findmy_pvs("$_", 0); + if (offset == NOT_IN_PAD || PAD_COMPNAME_FLAGS_isOUR(offset)) { + return newSVREF(newGVOP(OP_GV, 0, PL_defgv)); + } + else { + OP * const o = newOP(OP_PADSV, 0); + o->op_targ = offset; + return o; + } +} + #ifdef USE_ITHREADS /* -- Perl5 Master Repository
