From: mike Date: Tue, 11 Apr 2006 16:30:29 +0000 (+0000) Subject: Targets -> servers. X-Git-Tag: cpan_1_22~191 X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=402083a162a0cab5481d44cb1d63d820dae85f4c;p=ZOOM-Perl-moved-to-github.git Targets -> servers. --- diff --git a/samples/zoom/trivial-async.pl b/samples/zoom/trivial-async.pl index 05f1185..9a165f4 100644 --- a/samples/zoom/trivial-async.pl +++ b/samples/zoom/trivial-async.pl @@ -1,8 +1,8 @@ use ZOOM; -@targets = ('z3950.loc.gov:7090/Voyager', +@servers = ('z3950.loc.gov:7090/Voyager', 'bagel.indexdata.com:210/gils'); -for ($i = 0; $i < @targets; $i++) { - $z[$i] = new ZOOM::Connection($targets[$i], 0, +for ($i = 0; $i < @servers; $i++) { + $z[$i] = new ZOOM::Connection($servers[$i], 0, async => 1, # asynchronous mode count => 1, # piggyback retrieval count preferredRecordSyntax => "usmarc");