fix typo in exception, add more bit check

peczenyj · Dec 11, 2023 · 96f2c6a · 96f2c6a
1 parent 3d0ce8e
commit 96f2c6a
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/GDPR/IAB/TCFv2/BitUtils.pm b/lib/GDPR/IAB/TCFv2/BitUtils.pm
@@ -32,7 +32,8 @@ our @EXPORT_OK = qw<is_set
 sub is_set {
     my ( $data, $offset ) = @_;
 
-    croak "index our of bounds on offset $offset" if $offset >= length($data);
+    croak "index out of bounds on offset $offset"
+      if $offset + 1 > length($data);
 
     my $r = substr( $data, $offset, 1 ) == 1;
 
@@ -151,6 +152,9 @@ sub _get_bits_with_padding {
 sub _add_padding {
     my ( $data, $bits, $offset, $nbits ) = @_;
 
+    croak "index out of bounds on offset $offset"
+      if $offset + $nbits > length($data);
+
     my $padding = "0" x ( $bits - $nbits );
 
     my $r = $padding . substr( $data, $offset, $nbits );