~vcs-imports/perlbal/trunk

« back to all changes in this revision

Viewing changes to lib/Perlbal/SocketSSL.pm

  • Committer: hachi
  • Date: 2010-05-25 07:40:16 UTC
  • Revision ID: importd@pear-20100525074016-nb18apk6w9h3kk0q
Handle ERR on socket during SSL negotiation.

Received a bug report that the Danga::Socket base handler for event_err had been called and perlbal had shut down due to this.

I am unable to reproduce this problem on any of my machines, but maybe this will prevent the problem.

Show diffs side-by-side

added added

removed removed

Lines of Context:
135
135
    $_[0]->try_accept;
136
136
}
137
137
 
 
138
sub event_err {
 
139
    $_[0]->close('invalid_ssl_state');
 
140
}
 
141
 
138
142
1;