From c905a76107167881a1f45d8c014d9d3ba0fb97f5 Mon Sep 17 00:00:00 2001
From: cvsdist <cvsdist@fedoraproject.org>
Date: Sep 09 2004 10:10:33 +0000
Subject: auto-import changelog data from perl-Frontier-RPC-0.06-14.src.rpm

Fri Apr 05 2002 Chip Turner <cturner@redhat.com>
- add patch from RHN to allow raw non-conformat calls.
- doesn't affect main code path, but adds functionality
- similar to python xmlrpc module

---

diff --git a/perl-frontier-raw-call.patch b/perl-frontier-raw-call.patch
new file mode 100644
index 0000000..f989e92
--- /dev/null
+++ b/perl-frontier-raw-call.patch
@@ -0,0 +1,50 @@
+--- 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