projects
/
ZOOM-Perl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add zoom-delete-records to EXE_FILES
[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
9a165f4
..
1f588be
100644
(file)
--- a/
samples/zoom/trivial-async.pl
+++ b/
samples/zoom/trivial-async.pl
@@
-1,6
+1,7
@@
use ZOOM;
@servers = ('z3950.loc.gov:7090/Voyager',
use ZOOM;
@servers = ('z3950.loc.gov:7090/Voyager',
- 'bagel.indexdata.com:210/gils');
+ '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
for ($i = 0; $i < @servers; $i++) {
$z[$i] = new ZOOM::Connection($servers[$i], 0,
async => 1, # asynchronous mode