From edb5a2d75a671a1e0db6de8a5aa8a827bb24aa04 Mon Sep 17 00:00:00 2001
From: Mike Taylor <mike@indexdata.com>
Date: Wed, 10 May 2006 13:00:33 +0000
Subject: [PATCH] Use $rs->records(), with $return_records==0, instead of
 $rs->record() This means that the ZOOM_RECORD_NO_FORCE_SYNC
 hack is no longer needed.

---
 test-pod.pl |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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");
 }
-- 
1.7.10.4