… | |
… | |
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 | { |