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 05f1185..43cea2c 100644 (file)
--- a/samples/zoom/trivial-async.pl
+++ b/samples/zoom/trivial-async.pl
@@ -1,8 +1,9 @@
 use ZOOM;
-@targets = ('z3950.loc.gov:7090/Voyager',
-           'bagel.indexdata.com:210/gils');
-for ($i = 0; $i < @targets; $i++) {
-    $z[$i] = new ZOOM::Connection($targets[$i], 0,
+@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");