[Bps-public-commit] r11033 - in Net-Server-Coro: .

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Mar 10 15:17:59 2008
New Revision: 11033

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

Log:
 r28388 at kohr-ah:  chmrr | 2008-03-10 15:12:15 -0400
  * Force expects_ssl on when you call start_SSL


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 10 15:17:59 2008
@@ -227,6 +227,7 @@
 
 sub start_SSL {
     my $ctx;
+    $_[0][9] = 1;
 
     unless ($CONTEXT) {
         $ctx = $CONTEXT = Net::SSLeay::CTX_new;