… | |
… | |
50 | PUTBACK; |
50 | PUTBACK; |
51 | FREETMPS; |
51 | FREETMPS; |
52 | LEAVE; |
52 | LEAVE; |
53 | |
53 | |
54 | if (SvTRUE (ERRSV)) |
54 | if (SvTRUE (ERRSV)) |
55 | rxvt_warn ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV)); |
55 | IOM_WARN ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV)); |
56 | } |
56 | } |
57 | |
57 | |
58 | #define newSVtimer(timer) new_ref ((timer)->self, IOM_CLASS "::timer") |
58 | #define newSVtimer(timer) new_ref ((timer)->self, IOM_CLASS "::timer") |
59 | #define SvTIMER(sv) (timer *)(perl_watcher *)SvPTR ((sv), IOM_CLASS "::timer") |
59 | #define SvTIMER(sv) (timer *)(perl_watcher *)SvPTR ((sv), IOM_CLASS "::timer") |
60 | |
60 | |