For [GH #40] - cli_encode_json should care --binary too.

hkoba · Jun 4, 2018 · c9562dd · c9562dd
1 parent 6b876fd
commit c9562dd
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/Base/CLI_JSON.pm b/Base/CLI_JSON.pm
@@ -125,8 +125,13 @@ sub cli_invoke_sub_for_cmd {
 
 sub cli_encode_json {
   (my MY $self, my $obj) = @_;
-  my $codec = $self->{_cli_json} //= JSON->new->utf8->canonical;
-  Encode::_utf8_on(my $json = $codec->encode($obj));
+  my $codec = $self->{_cli_json} //= do {
+    my $js = JSON->new->canonical;
+    $js->utf8 unless $self->{binary};
+    $js;
+  };
+  my $json = $codec->encode($obj);
+  Encode::_utf8_on($json) unless $self->{binary};
   $json;
 }