[Bps-public-commit] r11168 - in Net-Server-Coro: . lib/Net/Server

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Mar 24 16:56:55 2008
New Revision: 11168

Modified:
   Net-Server-Coro/   (props changed)
   Net-Server-Coro/lib/Net/Server/Coro.pm
   Net-Server-Coro/lib/Net/Server/Proto/Coro.pm

Log:
 r28780 at kohr-ah:  chmrr | 2008-03-24 16:56:48 -0400
  * Work around Net::SSLeay segfault
  * Version bump


Modified: Net-Server-Coro/lib/Net/Server/Coro.pm
==============================================================================
--- Net-Server-Coro/lib/Net/Server/Coro.pm	(original)
+++ Net-Server-Coro/lib/Net/Server/Coro.pm	Mon Mar 24 16:56:55 2008
@@ -9,7 +9,7 @@
 use base qw(Net::Server);
 use Net::Server::Proto::Coro;
 
-$VERSION = 0.2;
+$VERSION = 0.3;
 
 =head1 NAME
 

Modified: Net-Server-Coro/lib/Net/Server/Proto/Coro.pm
==============================================================================
--- Net-Server-Coro/lib/Net/Server/Proto/Coro.pm	(original)
+++ Net-Server-Coro/lib/Net/Server/Proto/Coro.pm	Mon Mar 24 16:56:55 2008
@@ -87,6 +87,7 @@
         }
 
         return unless Coro::Handle::FH::readable( $_[0] );
+        return unless $_[0][10];
         my $r    = Net::SSLeay::read( $_[0][10] );
         my $errs = Net::SSLeay::print_errs('SSL_read');
         if ($errs) {
@@ -160,6 +161,7 @@
     return unless Coro::Handle::FH::writable( $_[0] );
     while (1) {
         my $str = substr( $_[1], $ofs, $len );
+        return unless $_[0][10];
         my $r = Net::SSLeay::write( $_[0][10], $str );
 
         if ( $r == -1 ) {