--- TokyoDystopia.xs	2008/08/17 23:57:02	11
+++ TokyoDystopia.xs	2008/08/18 15:35:18	14
@@ -99,3 +99,18 @@
 OUTPUT:
 	RETVAL
 
+
+int
+tcidbput(idb, id, val)
+	void *	idb
+	int	id
+	SV *	val
+PREINIT:
+	STRLEN vsiz;
+	const char *vbuf;
+CODE:
+	vbuf = SvPV(val, vsiz);
+	RETVAL = tcidbput(idb, id, vbuf);
+OUTPUT:
+	RETVAL
+