Bug #87314 for JSON-Pointer: [PATCH] wrong return precedence + hashorder

returns binds stronger than or, so the expressions after or are ignored. See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802 Furthermore I fixed tests to be hash order independent, which broke the tests since 5.18.

diff -bu JSON-Pointer-0.01-q0Iw1F/lib/JSON/Pointer.pm~ JSON-Pointer-0.01-q0Iw1F/lib/JSON/Pointer.pm --- JSON-Pointer-0.01-q0Iw1F/lib/JSON/Pointer.pm~ 2013-07-25 10:29:00.777705698 -0500 +++ JSON-Pointer-0.01-q0Iw1F/lib/JSON/Pointer.pm 2013-07-25 10:18:36.159326797 -0500 @@ -296,13 +296,13 @@ sub _is_iv_or_nv { my $value = shift; my $flags = B::svref_2object(\$value)->FLAGS; - return ($flags & ( B::SVp_IOK | B::SVp_NOK )) and !($flags & B::SVp_POK); + return (($flags & ( B::SVp_IOK | B::SVp_NOK )) and !($flags & B::SVp_POK)); } sub _is_pv { my $value = shift; my $flags = B::svref_2object(\$value)->FLAGS; - return !($flags & ( B::SVp_IOK | B::SVp_NOK )) and ($flags & B::SVp_POK); + return (!($flags & ( B::SVp_IOK | B::SVp_NOK )) and ($flags & B::SVp_POK)); } 1; diff -bu JSON-Pointer-0.01-q0Iw1F/t/004_add.t~ JSON-Pointer-0.01-q0Iw1F/t/004_add.t --- JSON-Pointer-0.01-q0Iw1F/t/004_add.t~ 2013-07-25 10:20:58.954046355 -0500 +++ JSON-Pointer-0.01-q0Iw1F/t/004_add.t 2013-07-25 10:25:54.619383967 -0500 @@ -18,15 +18,15 @@ my $orig_document_encoded = encode_json($document); my $patched_document = JSON::Pointer->add($document, $pointer, $value); is_deeply( - encode_json($patched_document), - encode_json($expect->{patched}), + decode_json(encode_json($patched_document)), + decode_json(encode_json($expect->{patched})), sprintf( "added document (actual: %s. expected: %s)", encode_json($patched_document), encode_json($expect->{patched}) ) ); - # is_deeply($document, $expect->{patched}, "patched"); + is_deeply($patched_document, $expect->{patched}, "patched"); }; } diff -bu JSON-Pointer-0.01-q0Iw1F/t/005_remove.t~ JSON-Pointer-0.01-q0Iw1F/t/005_remove.t --- JSON-Pointer-0.01-q0Iw1F/t/005_remove.t~ 2013-02-17 09:35:04.000000000 -0600 +++ JSON-Pointer-0.01-q0Iw1F/t/005_remove.t 2013-07-25 10:27:52.802318370 -0500 @@ -14,18 +14,18 @@ subtest $desc => sub { my ($document, $pointer) = @$input{qw/document pointer/}; my ($patched_document, $removed) = JSON::Pointer->remove($document, $pointer); - is( - $json->encode($patched_document), - $json->encode($expect->{document}), + is_deeply( + $json->decode($json->encode($patched_document)), + $json->decode($json->encode($expect->{document})), sprintf( "removed document (actual: %s. expect: %s)", $json->encode($patched_document), $json->encode($expect->{document}), ) ); - is( - $json->encode($removed), - $json->encode($expect->{removed}), + is_deeply( + $json->decode($json->encode($removed)), + $json->decode($json->encode($expect->{removed})), sprintf( "removed element (actual: %s. expect: %s)", $json->encode($removed), diff -bu JSON-Pointer-0.01-q0Iw1F/t/006_replace.t~ JSON-Pointer-0.01-q0Iw1F/t/006_replace.t --- JSON-Pointer-0.01-q0Iw1F/t/006_replace.t~ 2013-02-17 09:35:04.000000000 -0600 +++ JSON-Pointer-0.01-q0Iw1F/t/006_replace.t 2013-07-25 10:27:11.266692818 -0500 @@ -15,18 +15,18 @@ my ($document, $pointer, $value) = @$input{qw/document pointer value/}; my ($patched_document, $replaced) = JSON::Pointer->replace($document, $pointer, $value); - is( - $json->encode($patched_document), - $json->encode($expect->{document}), + is_deeply( + $json->decode($json->encode($patched_document)), + $json->decode($json->encode($expect->{document})), sprintf( "replaced document (actual: %s. expect: %s)", $json->encode($patched_document), $json->encode($expect->{document}), ) ); - is( - $json->encode($replaced), - $json->encode($expect->{replaced}), + is_deeply( + $json->decode($json->encode($replaced)), + $json->decode($json->encode($expect->{replaced})), sprintf( "replaced element (actual: %s. expect: %s)", $json->encode($replaced), diff -bu JSON-Pointer-0.01-q0Iw1F/t/007_copy.t~ JSON-Pointer-0.01-q0Iw1F/t/007_copy.t --- JSON-Pointer-0.01-q0Iw1F/t/007_copy.t~ 2013-02-17 09:35:04.000000000 -0600 +++ JSON-Pointer-0.01-q0Iw1F/t/007_copy.t 2013-07-25 10:28:11.962145664 -0500 @@ -14,9 +14,9 @@ subtest $desc => sub { my ($document, $from_pointer, $to_pointer) = @$input{qw/document from path/}; my $patched_document = JSON::Pointer->copy($document, $from_pointer, $to_pointer); - is( - $json->encode($patched_document), - $json->encode($expect->{patched}), + is_deeply( + $json->decode($json->encode($patched_document)), + $json->decode($json->encode($expect->{patched})), sprintf( "copied document (actual: %s. expected: %s)", $json->encode($patched_document), diff -bu JSON-Pointer-0.01-q0Iw1F/t/008_move.t~ JSON-Pointer-0.01-q0Iw1F/t/008_move.t --- JSON-Pointer-0.01-q0Iw1F/t/008_move.t~ 2013-02-17 09:35:04.000000000 -0600 +++ JSON-Pointer-0.01-q0Iw1F/t/008_move.t 2013-07-25 10:28:27.226008084 -0500 @@ -14,9 +14,9 @@ subtest $desc => sub { my ($document, $from_pointer, $to_pointer) = @$input{qw/document from path/}; my $patched_document = JSON::Pointer->move($document, $from_pointer, $to_pointer); - is( - $json->encode($patched_document), - $json->encode($expect->{patched}), + is_deeply( + $json->decode($json->encode($patched_document)), + $json->decode($json->encode($expect->{patched})), sprintf( "copied document (actual: %s. expected: %s)", $json->encode($patched_document),