projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1093878
)
Tweak sample program in synopsis to match current API.
author
Mike Taylor
<mike@indexdata.com>
Wed, 10 May 2006 16:01:04 +0000
(16:01 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Wed, 10 May 2006 16:01:04 +0000
(16:01 +0000)
lib/ZOOM/Pod.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/Pod.pm
b/lib/ZOOM/Pod.pm
index
1907d9b
..
a428619
100644
(file)
--- a/
lib/ZOOM/Pod.pm
+++ b/
lib/ZOOM/Pod.pm
@@
-1,4
+1,4
@@
-# $Id: Pod.pm,v 1.4 2006-05-10 15:51:10 mike Exp $
+# $Id: Pod.pm,v 1.5 2006-05-10 16:01:04 mike Exp $
package ZOOM::Pod;
package ZOOM::Pod;
@@
-30,14
+30,14
@@
ZOOM::Pod - Perl extension for handling pods of concurrent ZOOM connections
die "$pod->wait() failed with error $err" if $err;
sub completed_search {
die "$pod->wait() failed with error $err" if $err;
sub completed_search {
- ($conn, $rs) = @_;
+ ($conn, undef, $rs) = @_;
print $conn->option("host"), ": found ", $rs->size(), " records\n";
print $conn->option("host"), ": found ", $rs->size(), " records\n";
- $rs->record(0); # Queues a request for the record
+ $rs->records(0, 1, 0); # Queues a request for the record
return 0;
}
sub got_record {
return 0;
}
sub got_record {
- ($conn, $rs) = @_;
+ ($conn, undef, $rs) = @_;
$rec = $rs->record(0);
print $conn->option("host"), ": got $rec = '", $rec->render(), "'\n";
return 0;
$rec = $rs->record(0);
print $conn->option("host"), ": got $rec = '", $rec->render(), "'\n";
return 0;