| … | |
… | |
| 618 | return sv; |
618 | return sv; |
| 619 | |
619 | |
| 620 | AV *av = newAV (); |
620 | AV *av = newAV (); |
| 621 | av_push (av, newSVuv (tag)); |
621 | av_push (av, newSVuv (tag)); |
| 622 | av_push (av, sv); |
622 | av_push (av, sv); |
| 623 | return newRV_noinc ((SV *)av); |
623 | |
|
|
624 | HV *tagged_stash = !CBOR_SLOW || cbor_tagged_stash |
|
|
625 | ? cbor_tagged_stash |
|
|
626 | : gv_stashpv ("CBOR::XS::Tagged" , 1); |
|
|
627 | |
|
|
628 | return sv_bless (newRV_noinc ((SV *)av), tagged_stash); |
| 624 | } |
629 | } |
| 625 | |
630 | |
| 626 | static SV * |
631 | static SV * |
| 627 | decode_sv (dec_t *dec) |
632 | decode_sv (dec_t *dec) |
| 628 | { |
633 | { |
