From cb84b1a8634efeeb3cdab344435c89f2a355639a Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 8 Mar 2004 17:52:10 +0000
Subject: [PATCH] implement close for perl OpenIsis bindings

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@240 13eb9ef6-21d5-0310-b721-a9d68796d827
---
 openisis/perl/OpenIsis.xs | 9 +++++++++
 1 file changed, 9 insertions(+)

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
+
-- 
2.20.1