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

Comparing AnyEvent/lib/AnyEvent/Handle.pm (file contents):
Revision 1.150 by root, Thu Jul 16 04:16:25 2009 UTC vs.
Revision 1.154 by root, Sat Jul 18 05:19:09 2009 UTC

 package AnyEvent::Handle;
-no warnings;
-use strict qw(subs vars);
-use AnyEvent ();
-use AnyEvent::Util qw(WSAEWOULDBLOCK);
 use Scalar::Util ();
 use Carp ();
-use Fcntl ();
 use Errno qw(EAGAIN EINTR);
+use AnyEvent (); BEGIN { AnyEvent::common_sense }
+use AnyEvent::Util qw(WSAEWOULDBLOCK);
 =head1 NAME
 AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent
 =cut
-our $VERSION = 4.82;
+our $VERSION = 4.85;
 =head1 SYNOPSIS
    use AnyEvent;
    use AnyEvent::Handle;
    my $cv = AnyEvent->condvar;
    my $hdl; $hdl = new AnyEvent::Handle
       fh => \*STDIN,
       on_error => sub {
+         my ($hdl, $fatal, $msg) = @_;
-         warn "got error $_[2]\n";
+         warn "got error $msg\n";
+         $hdl->destroy;
          $cv->send;
       );
    # send some request line
    $hdl->push_write ("getinfo\015\012");
    $! = $errno;
    $message ||= "$!";
    if ($self->{on_error}) {
       $self->{on_error}($self, $fatal, $message);
-      $self->destroy;
+      $self->destroy if $fatal;
    } elsif ($self->{fh}) {
       $self->destroy;
       Carp::croak "AnyEvent::Handle uncaught error: $message";
    }
 }

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