X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=samples%2Fzoom%2Ftrivial-async.pl;h=1f588be26afbc2863d7b2bec65690c7a351a3174;hb=240063c187d8f615646214c76a3c920de7d05bb4;hp=05f1185bf02bbaa1eee9dac13ff2b49a31069047;hpb=9c8ffebe6900401c92311f88c5ddacd3fd4aaab6;p=ZOOM-Perl-moved-to-github.git

diff --git a/samples/zoom/trivial-async.pl b/samples/zoom/trivial-async.pl
index 05f1185..1f588be 100644
--- 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',
+	    'z3950.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");