Skip Menu |
 

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

Report information
The Basics
Id: 122109
Status: resolved
Priority: 0/
Queue: JSON-Path

People
Owner: popefelix [...] gmail.com
Requestors: jabowery [...] gmail.com
Cc:
AdminCc:

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



Subject: paths method succeeds in search but then fails on path construction
Date: Thu, 15 Jun 2017 15:38:58 -0500
To: bug-JSON-Path [...] rt.cpan.org
From: James Bowery <jabowery [...] gmail.com>
Download (untitled) / with headers
text/plain 4.7k
This source code: use JSON::Parse 'parse_json'; use JSON::Path; local $JSON::Path::Safe = 0; $json='{"1":{"name":"Name","value":"James Bowery","id":1,"type":"name","first":"James","middle":"","last":"Bowery"},"2":{"name":"Birthdate","value":"06\/23\/2017","id":2,"type":"date-time","date":"06\/23\/2017","time":"","unix":1498176000},"3":{"name":"Gender","value":"Male","value_raw":"Male","id":3,"type":"radio"},"4":{"name":"Ethnicity","value":"European","value_raw":"European","id":4,"type":"radio"},"5":{"name":"Email","value":" jabowery@emailservice.com","id":5,"type":"text"}}'; my $json_hash = parse_json($json); my $p3 = new JSON::Path '$.[?($_->{name} eq "Email")]'; my @paths=$p3->paths($json_hash); Bombs off while constructing the path it found. $ perl -d bug.pl Loading DB routines from perl5db.pl version 1.49 Editor support available. Enter h or 'h h' for help, or 'man perldebug' for more help. main::(bug.pl:3): local $JSON::Path::Safe = 0; ... DB<3> f /home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm DB<4> b 421 DB<5> c JSON::Path::Helper::evalx(/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm:421): 421: my $res = eval $expr; DB<5> c JSON::Path::Helper::evalx(/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm:421): 421: my $res = eval $expr; DB<5> c JSON::Path::Helper::evalx(/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm:421): 421: my $res = eval $expr; DB<5> x $v 0 HASH(0x17a7648) 'id' => 5 'name' => 'Email' 'type' => 'text' 'value' => 'jabowery@emailservice.com' DB<6> x $expr 0 '$v->{name} eq "Email"' DB<7> n JSON::Path::Helper::evalx((eval 60)[/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm:421]:1): 1: $v->{name} eq "Email" DB<7> p $v->{name} eq "Email" 1 DB<8> n JSON::Path::Helper::evalx(/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm:423): 423: if ($@) 424: { DB<8> JSON::Path::Helper::evalx(/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm:428): 428: return $res; DB<8> p $res 1 DB<9> c JSON::Path::Helper::evalx(/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm:421): 421: my $res = eval $expr; ... DB<11> c JSON::Path::Helper::evalx(/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm:421): 421: my $res = eval $expr; ... DB<13> c JSON::Path::Helper::evalx(/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm:421): 421: my $res = eval $expr; DB<13> x $v 0 'radio' DB<14> x $expr 0 '$v->{name} eq "Email"' DB<15> T @ = DB::DB called from file '/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm' line 421 $ = JSON::Path::Helper::evalx(ref(JSON::Path::Helper), '$_->{name} eq "Email"', 'radio') called from file '/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm' line 348 @ = JSON::Path::Helper::_callback_05(ref(JSON::Path::Helper), 'type', '?($_->{name} eq "Email")', '', ref(HASH), '$;3') called from file '/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm' line 369 . = JSON::Path::Helper::walk(ref(JSON::Path::Helper), '?($_->{name} eq "Email")', '', ref(HASH), '$;3', ref(CODE)) called from file '/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm' line 305 . = JSON::Path::Helper::trace(ref(JSON::Path::Helper), '?($_->{name} eq "Email")', ref(HASH), '$;3') called from file '/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm' line 289 @ = JSON::Path::Helper::trace(ref(JSON::Path::Helper), '..;?($_->{name} eq "Email")', ref(HASH), '$;3') called from file '/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm' line 331 @ = JSON::Path::Helper::_callback_04(ref(JSON::Path::Helper), 3, .., '?($_->{name} eq "Email")', ref(HASH), '$') called from file '/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm' line 369 . = JSON::Path::Helper::walk(ref(JSON::Path::Helper), .., '?($_->{name} eq "Email")', ref(HASH), '$', ref(CODE)) called from file '/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm' line 290 . = JSON::Path::Helper::trace(ref(JSON::Path::Helper), '..;?($_->{name} eq "Email")', ref(HASH), '$') called from file '/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm' line 66 @ = JSON::Path::_get(ref(JSON::Path), ref(HASH), 'PATH') called from file '/home/jabowery/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/JSON/Path.pm' line 123 @ = JSON::Path::paths(ref(JSON::Path), ref(HASH)) called from file 'bug.pl' line 7
Download (untitled) / with headers
text/html 14.5k

Message body is not shown because it is too large.

I confirm this bug, and will futz with it as I have time.
Download (untitled) / with headers
text/plain 198b
On Fri Jul 07 16:20:49 2017, popefelix wrote: Show quoted text
> I confirm this bug, and will futz with it as I have time.
I'm sorry to say this won't be fixed in 0.300, but it's on my list, for what it's worth. :)
Download (untitled) / with headers
text/plain 271b
On Mon Jul 10 12:11:43 2017, popefelix wrote: Show quoted text
> On Fri Jul 07 16:20:49 2017, popefelix wrote:
> > I confirm this bug, and will futz with it as I have time.
> > I'm sorry to say this won't be fixed in 0.300, but it's on my list, > for what it's worth. :)
Fixed in 0.400
Download (untitled) / with headers
text/plain 335b
On Mon Jul 17 18:45:35 2017, popefelix wrote: Show quoted text
> On Mon Jul 10 12:11:43 2017, popefelix wrote:
> > On Fri Jul 07 16:20:49 2017, popefelix wrote:
> > > I confirm this bug, and will futz with it as I have time.
> > > > I'm sorry to say this won't be fixed in 0.300, but it's on my list, > > for what it's worth. :)
> > Fixed in 0.400


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.