… | … | ||
---|---|---|---|
38 | 38 | ||
39 | local $/; | 39 | local $/; |
40 | $json = <>; | 40 | $json = <>; |
41 | 41 | ||
42 | # fix syck-brokenised stuff | 42 | # fix syck-brokenised stuff |
43 | $json = JSON::XS->new->ascii(1)->encode (JSON::Syck::Load $json); | 43 | #$json = JSON::XS->new->ascii(1)->encode (JSON::Syck::Load $json); |
44 | 44 | ||
45 | #srand 0; $json = JSON::XS->new->utf8(1)->ascii(0)->encode ([join "", map +(chr rand 255), 0..2047]); | 45 | #srand 0; $json = JSON::XS->new->utf8(1)->ascii(0)->encode ([join "", map +(chr rand 255), 0..2047]); |
46 | 46 | ||
47 | #if (1) { | 47 | #if (1) { |
48 | # use Storable; | 48 | # use Storable; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |