?PNG
IHDR ? f ??C1 sRGB ?? gAMA ?a pHYs ? ??od GIDATx^LeY?a?("Bh?_????q5k?*:t0A-o??]VkJM??f?8\k2ll1]q????T
Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/user1137782/www/china1.by/classwithtostring.php on line 86
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 213
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 214
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 218
#
# decode on Perl 5.005, 5.6, 5.8 or later
#
use strict;
use Test::More;
BEGIN { plan tests => 6 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
use JSON;
BEGIN {
use lib qw(t);
use _unicode_handling;
}
no utf8;
my $json = JSON->new->allow_nonref;
is($json->decode(q|"ü"|), "ü"); # utf8
is($json->decode(q|"\u00fc"|), "\xfc"); # latin1
is($json->decode(q|"\u00c3\u00bc"|), "\xc3\xbc"); # utf8
my $str = 'あ'; # Japanese 'a' in utf8
is($json->decode(q|"\u00e3\u0081\u0082"|), $str);
utf8::decode($str); # usually UTF-8 flagged on, but no-op for 5.005.
is($json->decode(q|"\u3042"|), $str);
my $utf8 = $json->decode(q|"\ud808\udf45"|); # chr 12345
utf8::encode($utf8); # UTf-8 flaged off
is($utf8, "\xf0\x92\x8d\x85");