From 5a8e5ef90f79184aa9e19dba8c61149638842d9c Mon Sep 17 00:00:00 2001
From: "Michael J. Chudobiak" <mjc@avtechpulse.com>
Date: Wed, 30 Jan 2013 09:17:05 -0500
Subject: named argument for vxi_wait_for_interrupt

---
 libvxi11client/perlbits/Client.pm | 10 ++++++++++
 libvxi11client/perlbits/Client.xs |  2 +-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/libvxi11client/perlbits/Client.pm b/libvxi11client/perlbits/Client.pm
index a5c5164..6e3d257 100644
--- a/libvxi11client/perlbits/Client.pm
+++ b/libvxi11client/perlbits/Client.pm
@@ -46,6 +46,16 @@ sub vxi_disable_srq {
 }
 
 
+sub vxi_wait_for_interrupt {
+	my %args = (
+                timeout_ms => 250,
+                @_
+        );
+
+	return vxi_wait_for_interrupt_long ($args{timeout_ms});
+}
+
+
 sub vxi_clear {
         my $self = shift;
 	my %args = (
diff --git a/libvxi11client/perlbits/Client.xs b/libvxi11client/perlbits/Client.xs
index 2727077..dc28b32 100644
--- a/libvxi11client/perlbits/Client.xs
+++ b/libvxi11client/perlbits/Client.xs
@@ -93,7 +93,7 @@ vxi_enable_srq_long(context, enable, handle)
 		RETVAL
 
 char*
-vxi_wait_for_interrupt(timeout = 250)
+vxi_wait_for_interrupt_long(timeout)
         int timeout 
 	CODE:
                 RETVAL = glue_wait_for_interrupt(timeout);
-- 
cgit