coro-5.24.patch

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