Permalink
Browse files

This commit was manufactured by cvs2svn to create tag 'v0_54'.

  • Loading branch information...
1 parent f85e785 commit 7a1288f2c68b56695e0bd72e92daf4c069d5ae1f rjray committed Dec 8, 2004
Showing with 6 additions and 5 deletions.
  1. +6 −5 lib/RPC/XML/Client.pm
View
11 lib/RPC/XML/Client.pm
@@ -9,7 +9,7 @@
#
###############################################################################
#
-# $Id: Client.pm,v 1.19 2003/02/18 08:59:02 rjray Exp $
+# $Id: Client.pm,v 1.20 2020/05/14 09:22:07 rjray Exp $
#
# Description: This class implements an RPC::XML client, using LWP to
# manage the underlying communication protocols. It relies
@@ -46,7 +46,7 @@ require URI;
use RPC::XML 'bytelength';
require RPC::XML::Parser;
-$VERSION = do { my @r=(q$Revision: 1.19 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = do { my @r=(q$Revision: 1.20 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
###############################################################################
#
@@ -337,8 +337,9 @@ sub send_request
if ($compression)
{
- die "$me: Error in inflate() expanding data"
- unless ($data = $com_engine->inflate($data));
+ my $error;
+ die "$me: Error in inflate() expanding data: $error"
+ unless (($data, $error) = $com_engine->inflate($data));
}
$parser->parse_more($data);
@@ -350,7 +351,7 @@ sub send_request
{
# One of the die's was triggered
return (ref($self->error_handler) eq 'CODE') ?
- $self->error_handler->($@) : $@;
+ $self->error_handler->($message) : $message;
}
unless ($response->is_success)
{

0 comments on commit 7a1288f

Please sign in to comment.