named argument for vxi_wait_for_interrupt

2 files changed, 11 insertions, 1 deletions

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);