[poe-commits] poe/POE/Component/Client TCP.pm,1.33,1.34

[<rc...@us...>]

Update of /cvsroot/poe/poe/POE/Component/Client
In directory sc8-pr-cvs1:/tmp/cvs-serv5337/POE/Component/Client

Modified Files:
	TCP.pm 
Log Message:
Silence the "connection reset by peer" errors, which indicate that a
client has unceremoniously disconnected.  To reiterate: These errors
only occur in the default ClientError callback.  Custom callbacks
still receive notification of the errors and can handle them any way
they see fit.


Index: TCP.pm
===================================================================
RCS file: /cvsroot/poe/poe/POE/Component/Client/TCP.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** TCP.pm	27 Jul 2003 18:29:54 -0000	1.33
--- TCP.pm	29 Jul 2003 00:25:28 -0000	1.34
***************
*** 9,13 ****
  
  use Carp qw(carp croak);
! use POSIX qw(ETIMEDOUT);
  
  # Explicit use to import the parameter constants;
--- 9,13 ----
  
  use Carp qw(carp croak);
! use POSIX qw(ETIMEDOUT ECONNRESET);
  
  # Explicit use to import the parameter constants;
***************
*** 266,270 ****
  
  sub _default_error {
!   unless ($_[ARG0] eq "read" and $_[ARG1] == 0) {
      warn(
        'Client ', $_[SESSION]->ID, " got $_[ARG0] error $_[ARG1] ($_[ARG2])\n"
--- 266,270 ----
  
  sub _default_error {
!   unless ($_[ARG0] eq "read" and ($_[ARG1] == 0 or $_[ARG1] == ECONNRESET)) {
      warn(
        'Client ', $_[SESSION]->ID, " got $_[ARG0] error $_[ARG1] ($_[ARG2])\n"