On Sun, Mar 09, 2003 at 01:44:04PM -0500, Steven N. Hirsch wrote:
> Tim,
>
> Not sure if you are currently maintaining this or not,
To the extent that I apply patches, yes :)
> 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.
Great, many thanks.
Tim.
> 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;
> }
>
>
