diff options
| author | Michael J. Chudobiak <mjc@avtechpulse.com> | 2013-01-30 09:17:05 -0500 |
|---|---|---|
| committer | Michael J. Chudobiak <mjc@avtechpulse.com> | 2013-01-30 09:17:05 -0500 |
| commit | 5a8e5ef90f79184aa9e19dba8c61149638842d9c (patch) | |
| tree | 3d313c8af73e9550ec9f5e4f3a374b519387abc3 /libvxi11client/perlbits/Client.pm | |
| parent | 4494ecb71854bbb625aba18a637c7e8529939735 (diff) | |
named argument for vxi_wait_for_interrupt
Diffstat (limited to 'libvxi11client/perlbits/Client.pm')
| -rw-r--r-- | libvxi11client/perlbits/Client.pm | 10 |
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 = ( |