Search
j0ke.net Open Build Service
>
Projects
>
SUSE
:
Manager
:
1.2
>
perl-Frontier-RPC
> perl-frontier-raw-serve.patch
Sign Up
|
Log In
Username
Password
Cancel
Overview
Repositories
Revisions
Requests
Users
Advanced
Attributes
Meta
File perl-frontier-raw-serve.patch of Package perl-Frontier-RPC
--- Frontier-RPC-0.06/lib/Frontier/RPC2.pm.rawserve Wed Jun 19 17:47:33 2002 +++ Frontier-RPC-0.06/lib/Frontier/RPC2.pm Wed Jun 19 18:26:04 2002 @@ -110,7 +110,7 @@ } sub serve { - my $self = shift; my $xml = shift; my $methods = shift; + my $self = shift; my $xml = shift; my $methods = shift; my $raw = shift; my $call; # FIXME bug in Frontier's XML @@ -118,6 +118,7 @@ eval { $call = $self->decode($xml) }; if ($@) { + die $@ if $raw; return $self->encode_fault(1, "error decoding RPC.\n" . $@); } @@ -127,12 +128,14 @@ my $method = $call->{'method_name'}; if (!defined $methods->{$method}) { + die "No such method '$method'" if $raw; return $self->encode_fault(3, "no such method \`$method'\n"); } my $result; my $eval = eval { $result = &{ $methods->{$method} }(@{ $call->{'value'} }) }; if ($@) { + die $@ if $raw; return $self->encode_fault(4, "error executing RPC \`$method'.\n" . $@); }