oops, fixed json.t perl test