more named parameters

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