Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

RT#77992: Make it work with Net::Server again.

  • Loading branch information...
commit de7c117392aff2a524a8cf02ef622879788c26f5 1 parent 7b07a7d
@rjray authored
Showing with 6 additions and 1 deletion.
  1. +6 −1 lib/RPC/XML/Server.pm
View
7 lib/RPC/XML/Server.pm
@@ -827,9 +827,14 @@ sub process_request ## no critic (ProhibitExcessComplexity)
);
my $me = ref($self) . '::process_request';
- if (! ($conn && ref $conn))
+ if (! $conn)
{
+ # Maintain compatibility with Net::Server 0.99, which does not pass
+ # the connection object at all:
$conn = $self->{server}->{client};
+ }
+ if (ref($conn) =~ /^Net::Server::Proto/)
+ {
bless $conn, 'HTTP::Daemon::ClientConn';
${*{$conn}}{'httpd_daemon'} = $self;
Please sign in to comment.
Something went wrong with that request. Please try again.