Add back a hunk of the removed patch as coro-5.24.patch.
Closes: #838851
gregor herrmann
7 years ago
| 0 | Description: fix for Coro with 5.24 | |
| 1 | Origin: https://paste.debian.net/688072 | |
| 2 | Bug-Debian: https://bugs.debian.org/838851 | |
| 3 | Bug: https://rt.cpan.org/Public/Bug/Display.html?id=114708 | |
| 4 | Author: Anonymous | |
| 5 | Last-Update: 2016-09-25 | |
| 6 | ||
| 7 | --- a/Coro/State.xs | |
| 8 | +++ b/Coro/State.xs | |
| 9 | @@ -1412,7 +1412,11 @@ | |
| 10 | PUSHMARK (SP); | |
| 11 | PUSHs (&PL_sv_yes); | |
| 12 | PUSHs (fullname); | |
| 13 | +# if PERL_VERSION_ATLEAST(5,24,0) | |
| 14 | + PUSHs (CxHASARGS (cx) ? sv_2mortal (newRV_inc (PL_curpad[0])) : &PL_sv_undef); | |
| 15 | +#else | |
| 16 | PUSHs (CxHASARGS (cx) ? sv_2mortal (newRV_inc ((SV *)cx->blk_sub.argarray)) : &PL_sv_undef); | |
| 17 | +#endif | |
| 18 | PUTBACK; | |
| 19 | cb = hv_fetch ((HV *)SvRV (coro_current), "_trace_sub_cb", sizeof ("_trace_sub_cb") - 1, 0); | |
| 20 | if (cb) call_sv (*cb, G_KEEPERR | G_EVAL | G_VOID | G_DISCARD); |