most of it seems to work in perl now

1 files changed, 8 insertions, 1 deletions

diff --git a/libvxi11client/perlglue.c b/libvxi11client/perlglue.c
index 937b9e4..697a480 100644
--- a/libvxi11client/perlglue.c
+++ b/libvxi11client/perlglue.c
@@ -2,6 +2,12 @@
 #include "libvxi11client.h"
 #include <stdbool.h>
 
+#define INTERRUPTHANDLE "libvxi11client"
+
+static void interruptcallback(void) {
+
+}
+
 int vopen(char* address, char* device) {
 	return vxi11_open(address, device);
 }
@@ -54,7 +60,8 @@ int vdestroy_intr_chan(void) {
 	return vxi11_destroy_intr_chan();
 }
 
-int venable_srq(bool enable, char* handle) {
+int venable_srq(bool enable) {
+	return vxi11_enable_srq(enable, INTERRUPTHANDLE, interruptcallback);
 }
 
 int vdocmd(unsigned long cmd, bool waitforlock) {