Subject: | Little warning in tests |
Hi,
to avoid a little warning in tests, we use the following patch.
Thanks,
Xavier
--- a/lib/Net/Server/Coro.pm
+++ b/lib/Net/Server/Coro.pm
@@ -102,7 +102,7 @@
my $self = shift;
my ($host, $port, $proto) = @_;
- my $is_ssl = ($proto eq "SSL" or $proto eq "SSLEAY");
+ my $is_ssl = (defined($proto) and ($proto eq "SSL" or $proto eq
"SSLEAY"));
my $socket = $self->SUPER::proto_object(
$host, $port, $is_ssl ? "TCP" : $proto
);