--- TokyoDystopia.xs	2008/08/18 19:01:00	25
+++ TokyoDystopia.xs	2008/08/18 19:04:10	26
@@ -247,3 +247,18 @@
 OUTPUT:
 	RETVAL
 
+
+void
+tcidbpath(idb)
+	void *	idb
+PREINIT:
+	const char *path;
+PPCODE:
+	path = tcidbpath(idb);
+	if(path){
+	  XPUSHs(sv_2mortal(newSVpv(path, 0)));
+	} else {
+	  XPUSHs((SV *)&PL_sv_undef);
+	}
+	XSRETURN(1);
+