increase performance in 17% on TO_JSON method when it is bitfield by …

…limit data size
peczenyj · Dec 12, 2023 · 41085cc · 41085cc
1 parent 0b77ede
commit 41085cc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/GDPR/IAB/TCFv2/BitField.pm b/lib/GDPR/IAB/TCFv2/BitField.pm
@@ -35,7 +35,7 @@ sub Parse {
     my $self = {
 
         # TODO consider store data as arrayref of bits
-        data    => substr( $data, $offset ),
+        data    => substr( $data, $offset, $max_id ),
         max_id  => $max_id,
         options => $options,
     };