projects
/
ZOOM-Perl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
7fb41a6
)
eventstr() -> event_str()
author
mike
<mike>
Fri, 7 Apr 2006 10:59:18 +0000
(10:59 +0000)
committer
mike
<mike>
Fri, 7 Apr 2006 10:59:18 +0000
(10:59 +0000)
Pass \@a instead of [@a]
samples/net-z3950-zoom/zoomtst3.pl
patch
|
blob
|
history
diff --git
a/samples/net-z3950-zoom/zoomtst3.pl
b/samples/net-z3950-zoom/zoomtst3.pl
index
934e329
..
b3a89d1
100644
(file)
--- a/
samples/net-z3950-zoom/zoomtst3.pl
+++ b/
samples/net-z3950-zoom/zoomtst3.pl
@@
-1,4
+1,4
@@
-# $Id: zoomtst3.pl,v 1.3 2006-04-07 07:49:11 mike Exp $
+# $Id: zoomtst3.pl,v 1.4 2006-04-07 10:59:18 mike Exp $
#
# See ../README for a description of this program.
# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl <t1> [...] <tN> <query>
#
# See ../README for a description of this program.
# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl <t1> [...] <tN> <query>
@@
-37,10
+37,10
@@
for (my $i = 0; $i < $n; $i++) {
}
# Network I/O. Pass number of connections and array of connections
}
# Network I/O. Pass number of connections and array of connections
-while ((my $i = Net::Z3950::ZOOM::event([ @z ])) != 0) {
+while ((my $i = Net::Z3950::ZOOM::event(\@z)) != 0) {
my $ev = Net::Z3950::ZOOM::connection_last_event($z[$i-1]);
print("connection ", $i-1, ": event $ev (",
my $ev = Net::Z3950::ZOOM::connection_last_event($z[$i-1]);
print("connection ", $i-1, ": event $ev (",
- Net::Z3950::ZOOM::eventstr($ev), ")\n");
+ Net::Z3950::ZOOM::event_str($ev), ")\n");
### It would be nice to display results as they come in.
}
### It would be nice to display results as they come in.
}