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

Comparing AnyEvent/lib/AnyEvent/Handle.pm (file contents):
Revision 1.133 by root, Thu Jul 2 23:22:35 2009 UTC vs.
Revision 1.136 by root, Fri Jul 3 21:44:14 2009 UTC

 AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent
 =cut
-our $VERSION = 4.45;
+our $VERSION = 4.452;
 =head1 SYNOPSIS
    use AnyEvent;
    use AnyEvent::Handle;
 yet. This data will be lost. Calling the C<stoptls> method in time might
 help.
 =item peername => $string
-A string used to identify the remote site - usually the DNS hostname used
+A string used to identify the remote site - usually the DNS hostname
-to create the connection.
+(I<not> IDN!) used to create the connection, rarely the IP address.
 Apart from being useful in error messages, this string is also used in TLS
 common name verification (see C<verify_cn> in L<AnyEvent::TLS>).
 =item tls => "accept" | "connect" | Net::SSLeay::SSL object
 =cut
 register_read_type json => sub {
    my ($self, $cb) = @_;
-   require JSON;
+   my $json = $self->{json} ||=
+      eval { require JSON::XS; JSON::XS->new->utf8 }
+         || do { require JSON; JSON->new->utf8 };
    my $data;
    my $rbuf = \$self->{rbuf};
-   my $json = $self->{json} ||= JSON->new->utf8;
    sub {
       my $ref = eval { $json->incr_parse ($self->{rbuf}) };
       if ($ref) {

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