diff options
Diffstat (limited to 'libvxi11client/perlbits/testscript.pl')
| -rw-r--r-- | libvxi11client/perlbits/testscript.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libvxi11client/perlbits/testscript.pl b/libvxi11client/perlbits/testscript.pl index 5af15d3..7bcfda6 100644 --- a/libvxi11client/perlbits/testscript.pl +++ b/libvxi11client/perlbits/testscript.pl @@ -18,9 +18,9 @@ my ($error, $statusbyte) = $instr->vxi_readstatusbyte(0); printf "status byte is " . $statusbyte . "\n"; $instr->vxi_create_intr_chan(); -$instr->vxi_enable_srq(1, "myhandle"); +$instr->vxi_enable_srq("myhandle"); vxi_wait_for_interrupt(); -$instr->vxi_enable_srq(0, ""); +$instr->vxi_disable_srq(); $instr->vxi_destroy_intr_chan(); $instr->vxi_abort(); $instr->vxi_clear(0); |