X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=test-pod.pl;h=7f28ee04f3aec71fe6eae20ac895ad35cfccd5db;hp=3eb85352439866c62550ac93e3395e724ea415c5;hb=edb5a2d75a671a1e0db6de8a5aa8a827bb24aa04;hpb=8f6a855fc5a2077f0b087ae81d6430522323af7e

diff --git a/test-pod.pl b/test-pod.pl
index 3eb8535..7f28ee0 100644
--- a/test-pod.pl
+++ b/test-pod.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
 
-# $Id: test-pod.pl,v 1.3 2006-05-09 16:21:37 mike Exp $
+# $Id: test-pod.pl,v 1.4 2006-05-10 13:00:33 mike Exp $
 #
 # Run like this:
-#	ZOOM_RECORD_NO_FORCE_SYNC=1 YAZ_LOG=pod perl -I lib test-pod.pl
+#	YAZ_LOG=pod perl -I lib test-pod.pl
 # (at least until the default sync. behaviour of ZOOM-C changes.)
 
 use strict;
@@ -57,7 +57,7 @@ sub request_record {
     my($conn, $rs, $state) = @_;
 
     my $i = $state->{next_to_fetch}++;
-    my $rec = $rs->record($i);
+    my $rec = $rs->records($i, 1, 0);
     print($conn->option("host"), ": pre-fetch: record $i is ",
 	  render_record($rec), "\n");
 }