Use the new library context system in the Perl module.

[itkacl] / perl-itkacl-2.0 / itkacl.i

diff --git a/perl-itkacl-2.0/itkacl.i b/perl-itkacl-2.0/itkacl.i
deleted file mode 100644 (file)
index f58703c..0000000
--- a/perl-itkacl-2.0/itkacl.i
+++ /dev/null
@@ -1,20 +0,0 @@
-/* SWIG interface for libitkacl */
-%module itkacl
-
-/* Convert errors to Perl exceptions and keep the interface clean. */
-%inline %{
-       extern int itkacl_check(char *realm, char *user, char *errmsg, size_t errmsgsize);
-       int check(char *realm, char *user)
-       {
-               char errmsg[1024];
-               int ret = itkacl_check(realm, user, errmsg, 1024);
-
-               /* printf("check '%s' vs. '%s' gave %d\n", user, realm, ret); */
-               if (ret == -1)
-                       die(errmsg);
-               else
-                       return (ret == 0);
-       }
-       
-%}
-