… | … | ||
---|---|---|---|
21 | exec_guard_cb (pTHX_ SV *cb) | 21 | exec_guard_cb (pTHX_ SV *cb) |
22 | { | 22 | { |
23 | dSP; | 23 | dSP; |
24 | SV *saveerr = SvOK (ERRSV) ? sv_mortalcopy (ERRSV) : 0; | 24 | SV *saveerr = SvOK (ERRSV) ? sv_mortalcopy (ERRSV) : 0; |
25 | 25 | ||
26 | PUSHSTACKi(PERLSI_DESTROY); | 26 | PUSHSTACKi (PERLSI_DESTROY); |
27 | 27 | ||
28 | PUSHMARK (SP); | 28 | PUSHMARK (SP); |
29 | PUTBACK; | 29 | PUTBACK; |
30 | call_sv (cb, G_VOID | G_DISCARD | G_EVAL); | 30 | call_sv (cb, G_VOID | G_DISCARD | G_EVAL); |
31 | SPAGAIN; | 31 | SPAGAIN; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |