ZebraRetrievalRecord changed. Fixed returning of null buffers in the wrapper

[idzebra-moved-to-github.git] / perl / lib / IDZebra.pm

diff --git a/perl/lib/IDZebra.pm b/perl/lib/IDZebra.pm
index 1a5a363..b820918 100644 (file)
--- a/perl/lib/IDZebra.pm
+++ b/perl/lib/IDZebra.pm
@@ -163,6 +163,8 @@ sub getScanEntry {
 *data1_get_tabpath = *IDZebrac::data1_get_tabpath;
 *data1_get_tabroot = *IDZebrac::data1_get_tabroot;
 *grs_perl_readf = *IDZebrac::grs_perl_readf;
+*grs_perl_readline = *IDZebrac::grs_perl_readline;
+*grs_perl_getc = *IDZebrac::grs_perl_getc;
 *grs_perl_seekf = *IDZebrac::grs_perl_seekf;
 *grs_perl_tellf = *IDZebrac::grs_perl_tellf;
 *grs_perl_endf = *IDZebrac::grs_perl_endf;
@@ -349,6 +351,10 @@ package IDZebra::RetrievalRecord;
 *swig_position_set = *IDZebrac::RetrievalRecord_position_set;
 *swig_base_get = *IDZebrac::RetrievalRecord_base_get;
 *swig_base_set = *IDZebrac::RetrievalRecord_base_set;
+*swig_sysno_get = *IDZebrac::RetrievalRecord_sysno_get;
+*swig_sysno_set = *IDZebrac::RetrievalRecord_sysno_set;
+*swig_score_get = *IDZebrac::RetrievalRecord_score_get;
+*swig_score_set = *IDZebrac::RetrievalRecord_score_set;
 *swig_format_get = *IDZebrac::RetrievalRecord_format_get;
 *swig_format_set = *IDZebrac::RetrievalRecord_format_set;
 *swig_buf_get = *IDZebrac::RetrievalRecord_buf_get;