force requests to be made with canonical json

wchristian · wchristian · commit c6d9ea19d9fd · 2013-10-22T11:22:29.000+02:00
diff --git a/lib/WebService/Plotly.pm b/lib/WebService/Plotly.pm
@@ -160,7 +160,7 @@ sub _makecall {
     {
         no warnings 'once';
         local *PDL::TO_JSON = sub { $_[0]->unpdl };
-        my $convert = sub { JSON->new->utf8->convert_blessed( 1 )->encode( $_[0] ) };
+        my $convert = sub { JSON->new->utf8->convert_blessed( 1 )->canonical( 1 )->encode( $_[0] ) };
         $json_args   = $convert->( $args );
         $json_kwargs = $convert->( \%kwargs );
     }

Original file line number	Diff line number	Diff line change
`@@ -160,7 +160,7 @@ sub _makecall {`
`160`	`160`	`{`
`161`	`161`	`no warnings 'once';`
`162`	`162`	`local *PDL::TO_JSON = sub { $_[0]->unpdl };`
`163`		`- my $convert = sub { JSON->new->utf8->convert_blessed( 1 )->encode( $_[0] ) };`
	`163`	`+ my $convert = sub { JSON->new->utf8->convert_blessed( 1 )->canonical( 1 )->encode( $_[0] ) };`
`164`	`164`	`$json_args = $convert->( $args );`
`165`	`165`	`$json_kwargs = $convert->( \%kwargs );`
`166`	`166`	`}`