| … | |
… | |
| 730 | count = call_sv ((SV *)GvCV (method), G_ARRAY); |
730 | count = call_sv ((SV *)GvCV (method), G_ARRAY); |
| 731 | SPAGAIN; |
731 | SPAGAIN; |
| 732 | |
732 | |
| 733 | // catch this surprisingly common error |
733 | // catch this surprisingly common error |
| 734 | if (SvROK (TOPs) && SvRV (TOPs) == sv) |
734 | if (SvROK (TOPs) && SvRV (TOPs) == sv) |
| 735 | croak ("%s::TO_JSON method returned same object as was passed instead of a new one", HvNAME (SvSTASH (sv))); |
735 | croak ("%s::FREEZE method returned same object as was passed instead of a new one", HvNAME (SvSTASH (sv))); |
| 736 | |
736 | |
| 737 | encode_ch (enc, '('); |
737 | encode_ch (enc, '('); |
| 738 | encode_ch (enc, '"'); |
738 | encode_ch (enc, '"'); |
| 739 | encode_str (enc, HvNAME (stash), HvNAMELEN (stash), HvNAMEUTF8 (stash)); |
739 | encode_str (enc, HvNAME (stash), HvNAMELEN (stash), HvNAMEUTF8 (stash)); |
| 740 | encode_ch (enc, '"'); |
740 | encode_ch (enc, '"'); |
| … | |
… | |
| 1104 | *cur++ = *dec_cur++; |
1104 | *cur++ = *dec_cur++; |
| 1105 | while (--clen); |
1105 | while (--clen); |
| 1106 | |
1106 | |
| 1107 | utf8 = 1; |
1107 | utf8 = 1; |
| 1108 | } |
1108 | } |
|
|
1109 | else if (ch == '\t' && dec->json.flags & F_RELAXED) |
|
|
1110 | *cur++ = ch; |
| 1109 | else |
1111 | else |
| 1110 | { |
1112 | { |
| 1111 | --dec_cur; |
1113 | --dec_cur; |
| 1112 | |
1114 | |
| 1113 | if (!ch) |
1115 | if (!ch) |
