--- JSON-XS/t/02_error.t	2007/04/03 23:34:17	1.5
+++ JSON-XS/t/02_error.t	2008/11/20 03:59:53	1.7
@@ -2,6 +2,7 @@
 
 use utf8;
 use JSON::XS;
+no warnings;
 
 our $test;
 sub ok($) {
@@ -41,6 +42,6 @@
 eval { JSON::XS->new->decode (\*STDERR) }; ok $@ =~ /malformed/;
 eval { JSON::XS->new->decode (*STDERR) }; ok !!$@; # cannot coerce GLOB
 
-eval { from_json ("\"\xa0") }; ok $@ =~ /malformed.*character/;
-eval { from_json ("\"\xa0\"") }; ok $@ =~ /malformed.*character/;
+eval { decode_json ("\"\xa0") }; ok $@ =~ /malformed.*character/;
+eval { decode_json ("\"\xa0\"") }; ok $@ =~ /malformed.*character/;