diff -ur JSON-Any-1.16.orig/lib/JSON/Any.pm JSON-Any-1.16/lib/JSON/Any.pm
--- JSON-Any-1.16.orig/lib/JSON/Any.pm	2008-02-13 15:15:46.000000000 -0800
+++ JSON-Any-1.16/lib/JSON/Any.pm	2008-03-22 10:50:12.831848606 -0700
@@ -110,6 +110,8 @@
                   max_depth
                 );
 
+                local $conf->{utf8} = !$conf->{utf8};    # it means the opposite
+
                 my $obj = $handler->new;
                 for my $mutator (@params) {
                     next unless exists $conf->{$mutator};
@@ -199,6 +201,7 @@
     foreach my $testmod (@order) {
         $testmod = "JSON::$testmod" unless $testmod eq "JSON";
         eval "require $testmod";
+        $@ = 'JSON too old' if $testmod eq 'JSON' && "$JSON::VERSION" =~ /^1/;
         unless ($@) {
             $handler = $testmod;
             my $key = _make_key($handler);
diff -ur JSON-Any-1.16.orig/t/04-ENV.t JSON-Any-1.16/t/04-ENV.t
--- JSON-Any-1.16.orig/t/04-ENV.t	2008-01-01 12:05:35.000000000 -0800
+++ JSON-Any-1.16/t/04-ENV.t	2008-03-22 10:36:06.260856865 -0700
@@ -13,7 +13,8 @@
 
 SKIP: {
     eval { require JSON; };
-    skip "JSON not installed: $@", 1 if $@;
+    skip "JSON unusable or not installed: $@", 1 
+        if $@ || $JSON::VERSION =~ /^1/;
 
     $ENV{JSON_ANY_ORDER} = qw(JSON);
     JSON::Any->import();