1 # typemap for Perl 5 interface to Berkeley DB
3 # written by Paul Marquess (pmarquess@bfsec.bt.co.uk)
4 # last modified 23rd June 1994
7 #################################### DB SECTION
18 if (db->close != DB_recno_close)
20 $var.data = SvPV($arg, na);
28 $var.size = (int)sizeof(recno_t);
31 $var.data = SvPV($arg, na);
39 OutputValue($arg, $var)