peczenyj / GDPR-IAB-TCFv2 / 25430930440

96%

main: 96%

push

github

fix: coerce Math::BigInt fallback values to plain scalars in BitUtils (#46)

On Perls without pack 'Q>' / 'S>' (e.g. Perl 5.8.9 on FreeBSD 9.2,
per CPAN Testers report 281cd334-...), get_uint12 / get_uint16 /
get_uint36 fall back to Math::BigInt and return blessed objects.
Those blessed values flowed straight through TO_JSON and made the
CLI's JSON encoder croak with:

  encountered object 'Math::BigInt=HASH(...)' but neither
  allow_blessed, convert_blessed nor allow_tags settings are enabled

Fix at the BitUtils boundary by calling ->numify on the BigInt
result.  16 bits always fits in an IV; 36 bits fits exactly in an
NV's 53-bit mantissa (covers all TCF v2 timestamps through ~2148).

Promote $CAN_PACK_QUADS / $CAN_FORCE_BIG_ENDIAN from `my` to `our`
so the new t/12-bigint-fallback.t can `local`-override them and
exercise the BigInt path on any Perl.

2 of 2 new or added lines in 1 file covered. (100.0%)

671 of 689 relevant lines covered (97.39%)

12742.96 hits per line