Tim,

Not sure if you are currently maintaining this or not, but PlClient.pm
really needs to call RPC::Comm::Init() prior to any conversation with the
server.  Without this patch, if you have specified 'compression => gzip',
the client will try to call Compress::Zlib::compress() without ever having
'require'-ed Compress::Zlib.

Steve

--- PlRPC-0.2016/lib/RPC/PlClient.pm.orig       2001-09-30 22:38:40.000000000 -0400
+++ PlRPC-0.2016/lib/RPC/PlClient.pm    2003-03-09 13:34:37.000000000 -0500
@@ -52,6 +52,8 @@
     my $self = [EMAIL PROTECTED];
     bless($self, (ref($proto) || $proto));
 
+    $self->RPC::PlServer::Comm::Init();
+
     my $app = $self->{'application'}  or
        $self->Fatal("Missing application name");
     my $version = $self->{'version'}  or
@@ -86,7 +88,6 @@
     die "Refused by server: $msg" unless $reply->[0];
     $self->Debug("Logged in, server replies: $msg");
 
-    $self->RPC::PlServer::Comm::Init();
     return ($self, $msg) if wantarray;
     $self;
 }


Reply via email to