Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Tomcat42
perl-Frontier-RPC
perl-frontier-raw-serve.patch
Overview
Repositories
Revisions
Requests
Users
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" . $@); }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor