--- BDB/typemap	2007/02/05 18:40:55	1.1
+++ BDB/typemap	2007/02/05 20:21:38	1.2
@@ -1,3 +1,6 @@
+DB_ENV *	DB_ENV
+DB_TXN *	DB_TXN
+DB *		DB
 SV8 *		T_SV8
 
 INPUT
@@ -6,3 +9,23 @@
 	($var) = $arg;
         if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1))
           croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\")
+
+DB_ENV
+        SvPTR ($var, $arg, DB_ENV *, BDB::Env);
+
+DB_TXN
+        SvPTR ($var, $arg, DB_TXN *, BDB::Txn);
+
+DB
+        SvPTR ($var, $arg, DB *, BDB::Db);
+
+OUTPUT
+
+DB_ENV
+	sv_setref_pv ($arg, "BDB::Env", (void *)$var);
+
+DB_TXN
+	sv_setref_pv ($arg, "BDB::Txn", (void *)$var);
+
+DB
+	sv_setref_pv ($arg, "BDB::Db", (void *)$var);