--- JSON-XS/t/52_object.t 2013/10/28 23:19:54 1.1 +++ JSON-XS/t/52_object.t 2013/10/29 15:55:49 1.3 @@ -1,8 +1,9 @@ BEGIN { $| = 1; print "1..20\n"; } +BEGIN { $^W = 0 } # hate use JSON::XS; -$json = JSON::XS->new->convert_blessed; +$json = JSON::XS->new->convert_blessed->allow_tags->allow_nonref; print "ok 1\n"; @@ -22,8 +23,6 @@ print "ok 7\n"; -$json = JSON::XS->new->allow_tags->allow_nonref; - sub JSON::XS::freeze::FREEZE { print @_ == 2 ? "" : "not ", "ok 8\n"; print $_[1] eq "JSON" ? "" : "not ", "ok 9\n";