[ViewVC] Diff of: cvs/AnyEvent/lib/AnyEvent/Handle.pm

Comparing AnyEvent/lib/AnyEvent/Handle.pm (file contents):
Revision 1.109 by root, Wed Jan 14 02:03:43 2009 UTC vs.
Revision 1.110 by root, Wed Jan 21 05:36:45 2009 UTC

    }
 };
 =item json => $cb->($handle, $hash_or_arrayref)
-Reads a JSON object or array, decodes it and passes it to the callback.
+Reads a JSON object or array, decodes it and passes it to the
+callback. When a parse error occurs, an C<EBADMSG> error will be raised.
 If a C<json> object was passed to the constructor, then that will be used
 for the final decode, otherwise it will create a JSON coder expecting UTF-8.
 This read type uses the incremental parser available with JSON version
    my $rbuf = \$self->{rbuf};
    my $json = $self->{json} ||= JSON->new->utf8;
    sub {
+      eval {
-      my $ref = $json->incr_parse ($self->{rbuf});
+         my $ref = $json->incr_parse ($self->{rbuf});
-      if ($ref) {
+         if ($ref) {
+            $self->{rbuf} = $json->incr_text;
+            $json->incr_text = "";
+            $cb->($self, $ref);
+            1
+         } else {
+            $self->{rbuf} = "";
+            ()
+         }
+         1
+      } or do {
+         $json->incr_skip;
          $self->{rbuf} = $json->incr_text;
          $json->incr_text = "";
-         $cb->($self, $ref);
-         1
+         $self->_error (&Errno::EBADMSG);
-      } else {
-         $self->{rbuf} = "";
-         ()
-      }
+      };
    }
 };
 =item storable => $cb->($handle, $ref)

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines