diff options
Diffstat (limited to 'libvxi11client/perlbits/testscript.pl')
| -rwxr-xr-x | libvxi11client/perlbits/testscript.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libvxi11client/perlbits/testscript.pl b/libvxi11client/perlbits/testscript.pl index ac7dd3f..b564977 100755 --- a/libvxi11client/perlbits/testscript.pl +++ b/libvxi11client/perlbits/testscript.pl @@ -7,14 +7,14 @@ use VXI11::Client; vxi_startinterruptserver(); -my $instr = vxi_open("roi", 0); +my $instr = vxi_open("myipaddr"); -$instr->vxi_lock(0); +$instr->vxi_lock(); $instr->vxi_write("*idn?"); my ($bytes, $buff, $reason) = $instr->vxi_read(); print "got " . $bytes . ";" . $buff . " reason " . $reason ."\n"; -my ($error, $statusbyte) = $instr->vxi_readstatusbyte(0); +my ($error, $statusbyte) = $instr->vxi_readstatusbyte(); printf "status byte is " . $statusbyte . "\n"; $instr->vxi_create_intr_chan(); @@ -26,10 +26,10 @@ for (my $i = 0; $i < 10000; $i++) { $instr->vxi_disable_srq(); $instr->vxi_destroy_intr_chan(); $instr->vxi_abort(); -$instr->vxi_clear(0); -$instr->vxi_trigger(0); -$instr->vxi_local(0); -$instr->vxi_remote(0); +$instr->vxi_clear(); +$instr->vxi_trigger(); +$instr->vxi_local(); +$instr->vxi_remote(); $instr->vxi_unlock(); $instr->vxi_close(); |