From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 8 Mar 2004 17:52:10 +0000 (+0000)
Subject: implement close for perl OpenIsis bindings
X-Git-Url: http://git.rot13.org/?p=webpac;a=commitdiff_plain;h=cb84b1a8634efeeb3cdab344435c89f2a355639a

implement close for perl OpenIsis bindings


git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@240 13eb9ef6-21d5-0310-b721-a9d68796d827
---

diff --git a/openisis/perl/OpenIsis.xs b/openisis/perl/OpenIsis.xs
index 18e3aa1..3e3b819 100644
--- a/openisis/perl/OpenIsis.xs
+++ b/openisis/perl/OpenIsis.xs
@@ -239,3 +239,12 @@ terms( db, key )
 					
 		}
 	}
+
+int
+close( db )
+	int db
+	CODE:
+	RETVAL = sherr( openIsisCDClose( db ) );
+	OUTPUT:
+	RETVAL
+