1 files changed, 10 insertions, 0 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 = (