Typo in AGRICOLA target-string.

[ZOOM-Perl-moved-to-github.git] / samples / zoom / trivial-async.pl

diff --git a/samples/zoom/trivial-async.pl b/samples/zoom/trivial-async.pl
index 6dcb41e..43cea2c 100644 (file)
--- a/samples/zoom/trivial-async.pl
+++ b/samples/zoom/trivial-async.pl
@@ -1,13 +1,12 @@
 use ZOOM;
-@targets = ('z3950.loc.gov:7090/Voyager',
-           'bagel.indexdata.com:210/gils');
-$o = new ZOOM::Options();
-$o->option(async => 1);                # asynchronous mode
-$o->option(count => 1);                # piggyback retrieval count
-$o->option(preferredRecordSyntax => "usmarc");
-for ($i = 0; $i < @targets; $i++) {
-    $z[$i] = create ZOOM::Connection($o);
-    $z[$i]->connect($targets[$i]);
+@servers = ('z3950.loc.gov:7090/Voyager',
+           'bagel.indexdata.com:210/gils',
+           'agricola.nal.usda.gov:7190/Voyager');
+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");
     $r[$i] = $z[$i]->search_pqf("mineral");
 }
 while (($i = ZOOM::event(\@z)) != 0) {