--- Frontier-RPC-0.06/lib/Frontier/Client.pm.orig	Sat Nov 20 19:13:21 1999

+++ Frontier-RPC-0.06/lib/Frontier/Client.pm	Wed Dec 19 18:42:55 2001

@@ -50,6 +50,26 @@

 sub call {

     my $self = shift;

+    my $content = $self->raw_call(@_);

+

+    if ($self->{'debug'}) {

+	print "---- response ----\n";

+	print $content;

+    }

+

+    my $result = $self->{'enc'}->decode($content);

+

+    if ($result->{'type'} eq 'fault') {

+	die "Fault returned from XML RPC Server, fault code " . $result->{'value'}[0]{'faultCode'} . ": "

+	    . $result->{'value'}[0]{'faultString'} . "\n";

+    }

+

+    return $result->{'value'}[0];

+}

+

+sub raw_call {

+    my $self = shift;

+

     my $text = $self->{'enc'}->encode_call(@_);

     if ($self->{'debug'}) {

@@ -67,19 +87,7 @@

     my $content = $response->content;

-    if ($self->{'debug'}) {

-	print "---- response ----\n";

-	print $content;

-    }

-

-    my $result = $self->{'enc'}->decode($content);

-

-    if ($result->{'type'} eq 'fault') {

-	die "Fault returned from XML RPC Server, fault code " . $result->{'value'}[0]{'faultCode'} . ": "

-	    . $result->{'value'}[0]{'faultString'} . "\n";

-    }

-

-    return $result->{'value'}[0];

+    return $content;

 }

 # shortcuts