| … | |
… | |
| 8 | #include <stdio.h> |
8 | #include <stdio.h> |
| 9 | #include <limits.h> |
9 | #include <limits.h> |
| 10 | #include <float.h> |
10 | #include <float.h> |
| 11 | |
11 | |
| 12 | #include "ecb.h" |
12 | #include "ecb.h" |
|
|
13 | |
|
|
14 | // compatibility with perl <5.18 |
|
|
15 | #ifndef HvNAMELEN_get |
|
|
16 | # define HvNAMELEN_get(hv) strlen (HvNAME (hv)) |
|
|
17 | #endif |
|
|
18 | #ifndef HvNAMELEN |
|
|
19 | # define HvNAMELEN(hv) HvNAMELEN_get (hv) |
|
|
20 | #endif |
|
|
21 | #ifndef HvNAMEUTF8 |
|
|
22 | # define HvNAMEUTF8(hv) 0 |
|
|
23 | #endif |
| 13 | |
24 | |
| 14 | // known tags |
25 | // known tags |
| 15 | enum cbor_tag |
26 | enum cbor_tag |
| 16 | { |
27 | { |
| 17 | // inofficial extensions (pending iana registration) |
28 | // inofficial extensions (pending iana registration) |
| … | |
… | |
| 710 | |
721 | |
| 711 | PUTBACK; |
722 | PUTBACK; |
| 712 | call_sv ((SV *)GvCV (method), G_SCALAR); |
723 | call_sv ((SV *)GvCV (method), G_SCALAR); |
| 713 | SPAGAIN; |
724 | SPAGAIN; |
| 714 | |
725 | |
|
|
726 | SvREFCNT_dec (sv); |
| 715 | sv = SvREFCNT_inc (POPs); |
727 | sv = SvREFCNT_inc (POPs); |
| 716 | |
728 | |
| 717 | PUTBACK; |
729 | PUTBACK; |
| 718 | |
730 | |
| 719 | FREETMPS; LEAVE; |
731 | FREETMPS; LEAVE; |
