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 (file)
--- 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
+