Skip Menu |

This queue is for tickets about the MIME-Base32 CPAN distribution.

Report information
The Basics
Id: 107998
Status: resolved
Priority: 0/
Queue: MIME-Base32

People
Owner: Nobody in particular
Requestors: DLAMBLEY [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 1.02a
Fixed in: (no value)



Subject: Decoding is case sensitive
If the string supplied to decode() is not upper case, decoding fails to happen correctly. For example, $ perl -e'use MIME::Base32 qw/ RFC /; print MIME::Base32::encode("{}")."\n";' PN6Q $ perl -e'use MIME::Base32 qw/ RFC /; print MIME::Base32::decode("PN6Q")."\n";' {} $ perl -e'use MIME::Base32 qw/ RFC /; print MIME::Base32::decode("pn6q")."\n";' sw�
Hi, A PR for a potential fix has been created: https://github.com/perl5-utils/MIME-Base32/pull/3 Thanks, Chase
With the PR's proposed fix: $ perl -Ilib -MMIME::Base32=decode_base32 -E 'say decode_base32(q(pn6q))' {} $ perl -Ilib -MMIME::Base32=decode_base32 -E 'say decode_base32(q(PN6Q))' {}
Fix with 1.302