Skip Menu |

This queue is for tickets about the JSON-Decode-Regexp CPAN distribution.

Report information
The Basics
Id: 124392
Status: resolved
Priority: 0/
Queue: JSON-Decode-Regexp
People
Owner: Nobody in particular
Requestors: MARKF [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: 0.09
Fixed in: (no value)

History Show all quoted text
  Sun Feb 11 10:02:04 2018 MARKF [...] cpan.org - Ticket created
The number regexp uses \d to imply [0-9], where this is not true unless the /a flag is active (which it is not, it'll match anything that has the "Decimal_Number" property) perl -e 'use JSON::Decode::Regexp qw(from_json); use Data::Dumper; print Dumper from_json("[1\x{16A61}]")' Argument "1\x{16a61}" isn't numeric in addition (+) at /opt/markperl/lib/site_perl/5.22.0/JSON/Decode/Regexp.pm line 163. $VAR1 = [ '1' ];
  Wed Feb 14 05:52:02 2018 PERLANCAR [...] cpan.org - Correspondence added
On Sun, 11 Feb 2018 15:02:04 GMT, MARKF wrote: Show quoted text
> The number regexp uses \d to imply [0-9], where this is not true > unless the /a flag is active (which it is not, it'll match anything > that has the "Decimal_Number" property) > > perl -e 'use JSON::Decode::Regexp qw(from_json); use Data::Dumper; > print Dumper from_json("[1\x{16A61}]")' > Argument "1\x{16a61}" isn't numeric in addition (+) at > /opt/markperl/lib/site_perl/5.22.0/JSON/Decode/Regexp.pm line 163. > $VAR1 = [ > '1' > ];
Thanks, I've replaced occurrences of \d with [0-9] and released a new version.
  Wed Feb 14 05:52:03 2018 The RT System itself - Status changed from 'new' to 'open'
  Wed Feb 14 05:52:03 2018 PERLANCAR [...] cpan.org - Status changed from 'open' to 'resolved'