fix issue #9 by trying to use MIME::Base64->can("decode_base64url") o…

…r use a fallback
peczenyj · Dec 4, 2023 · f0a64b0 · f0a64b0
1 parent 77cde2b
commit f0a64b0
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/lib/GDPR/IAB/TCFv2.pm b/lib/GDPR/IAB/TCFv2.pm
@@ -105,9 +105,15 @@ sub _get_core_tc_string {
 
 sub _decode_base64url {
     my $s = shift;
-    $s =~ tr[-_][+/];
-    $s .= '=' while length($s) % 4;
-    return decode_base64($s);
+
+    state $decode_base64url = MIME::Base64->can("decode_base64url") || sub {
+        my $s = shift;
+        $s =~ tr[-_][+/];
+        $s .= '=' while length($s) % 4;
+        return decode_base64($s);
+    };
+
+    return $decode_base64url->($s);
 }
 
 sub version {