Skip Menu |

This queue is for tickets about the Math-Base36 CPAN distribution.

Report information
The Basics
Id: 44414
Status: resolved
Priority: 0/
Queue: Math-Base36

People
Owner: Nobody in particular
Requestors: perl [...] atablis.com
Cc:
AdminCc:

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



Subject: decode_base36 error check
Date: Wed, 18 Mar 2009 12:11:25 +0100
To: bug-Math-Base36 [...] rt.cpan.org
From: "Steffen Heinrich" <perl [...] atablis.com>
Sorry, but couldn't login with my PAUSE credentials. Nothing severe. The sub decode_base36() dies only unless $base36 =~ m{[0-9A-Z]+} while it really should be unless $base36 =~ m{^[0-9A-Z]+$} Regards, Steffen
Fixed in the following git commit: http://github.com/bricas/math-base36/commit/0dca5ca096124b4c6d498adf9b9e344eece91f88 I opted for the following condition instead of your proposed solution: die 'Invalid base36 number' if $base36 =~ m{[^0-9A-Z]};