--- trunk/openisis/perl/OpenIsis.xs	2004/03/08 17:49:13	239
+++ trunk/openisis/perl/OpenIsis.xs	2004/03/08 17:52:10	240
@@ -239,3 +239,12 @@
 					
 		}
 	}
+
+int
+close( db )
+	int db
+	CODE:
+	RETVAL = sherr( openIsisCDClose( db ) );
+	OUTPUT:
+	RETVAL
+