Permalink
Browse files

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

  • Loading branch information...
1 parent 7b07a7d commit de7c117392aff2a524a8cf02ef622879788c26f5 @rjray committed Aug 31, 2012
Showing with 6 additions and 1 deletion.
  1. +6 −1 lib/RPC/XML/Server.pm
View
@@ -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;

0 comments on commit de7c117

Please sign in to comment.