File perl-frontier-raw-call.patch of Package perl-Frontier-RPC

--- 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