[MOBY-l] A couple of bug fixes

[Alex Gutteridge]

Hi,

There are a couple of (tiny) bugs in the Perl example on the biomoby  
website here:

http://biomoby.open-bio.org/CVS_CONTENT/moby-live/Docs/MOBY-S_API/Perl/ExecuteSyncService.html

I've pasted a diff to fix them below:

--- orig.pl     2008-02-12 14:01:06.000000000 +0900
+++ new.pl      2008-02-12 14:02:45.000000000 +0900
@@ -2,7 +2,7 @@
use MOBY::Client::Service;  # this is what we use to interact with a  
service

my $m = MOBY::Client::Central->new;
-my ($serv_instances, $reg) = $findService->(
+my ($serv_instances, $reg) = $m->findService(
    authURI => "mydomain.mycompany.org",
    serviceName => "getGoTerm");

@@ -20,7 +20,7 @@
   # here we'll just set it explicitly...
my $articleName = "my_input_parameter";

-my $wsdl = $M->retrieveService($SI);
+my $wsdl = $m->retrieveService($SI);
   # we now have the WSDL description of the Service
   # we use this to create a MOBY::Client::Service object

@@ -33,7 +33,7 @@
my $inputdata2 = ">Object namespace='GO' id='0050789'>";

@single_invocation = ([$articleName, $inputdata1]);
- at multiple_invocation = ([$articleName, $inputdata1], [$articleName,  
$inputdata2])
+ at multiple_invocation = ([$articleName, $inputdata1], [$articleName,  
$inputdata2]);

my $result1 = $SERV->execute(XMLinputlist => \@single_invocation);
my $result2 = $SERV->execute(XMLinputlist => \@multiple_invocation);

AlexG