pp_ctl.c
/* Common code for Perl_call_sv and Perl_fold_constants, put here to keep it
   close to the related Perl_create_eval_scope.  */
Common code for Perl_call_sv and Perl_fold_constants, put here to keep it
close to the related Perl_create_eval_scope.
Common code for Perl_call_sv and Perl_fold_constants put here to keep it close to the related Perl_create_eval_scope .
void
Perl_delete_eval_scope(pTHX)
{
    SV **newsp;
    PMOP *newpm;
    I32 gimme;
    register PERL_CONTEXT *cx;
    I32 optype;
    POPBLOCK(cx,newpm);
    POPEVAL(cx);
    PL_curpm = newpm;
    LEAVE_with_name("eval_scope");
    PERL_UNUSED_VAR(newsp);
    PERL_UNUSED_VAR(gimme);
    PERL_UNUSED_VAR(optype);
}
void Perl_delete_eval_scope ( pTHX ) { SV * * newsp ; PMOP * newpm ; I32 gimme ; register PERL_CONTEXT * cx ; I32 optype ; POPBLOCK ( cx , newpm ) ; POPEVAL ( cx ) ; PL_curpm = newpm ; LEAVE_with_name ( " " ) ; PERL_UNUSED_VAR ( newsp ) ; PERL_UNUSED_VAR ( gimme ) ; PERL_UNUSED_VAR ( optype ) ; }
Common code for Perl_call_sv and Perl_fold_constants, put here to keep it
close to the related Perl_create_eval_scope.
Common code for Perl_call_sv and Perl_fold_constants put here to keep it close to the related Perl_create_eval_scope .