source: keep original file encoding
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 30 Aug 2020 12:35:52 +0000 (14:35 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 20 Oct 2020 20:49:11 +0000 (22:49 +0200)
Keep original utf8 as binary to prevent reconversion.

source.plp

index 72fdf825e5bffbdc17996e60cfc21ec79e020f00..5d445e5658f530539b79108238e0266b6a286a62 100644 (file)
@@ -10,7 +10,7 @@ if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) {
                my $data = do $source or die $@ || $! || 'read error';
                require JSON;
                my $converter = JSON->new;
-               $converter->utf8->indent->space_after->canonical;
+               $converter->indent->space_after->canonical;
 
                $header{content_type} = 'application/json';
                $header{content_type} = 'text/plain' if exists $get{debug};