diff options
| author | Michael J. Chudobiak <mjc@avtechpulse.com> | 2013-01-30 15:11:07 -0500 |
|---|---|---|
| committer | Michael J. Chudobiak <mjc@avtechpulse.com> | 2013-01-30 15:11:07 -0500 |
| commit | 96fc7ffbd19dfaba3240dd451a726470697fd42b (patch) | |
| tree | 087a93a1018f6fe3692fab81b1b9148ac4ee481a /libvxi11client | |
| parent | 9adff4ed2d57ad7c01850f53a625f32118741285 (diff) | |
use print instead of printf
Diffstat (limited to 'libvxi11client')
| -rw-r--r-- | libvxi11client/perlbits/Client.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libvxi11client/perlbits/Client.pm b/libvxi11client/perlbits/Client.pm index c58ed19..cf691bb 100644 --- a/libvxi11client/perlbits/Client.pm +++ b/libvxi11client/perlbits/Client.pm @@ -199,7 +199,7 @@ VXI11::Client - Perl module for interfacing with VXI-11 networked test and measu print "got " . $bytes . ";" . $buff . " reason " . $reason ."\n"; my ($error, $statusbyte) = $instr->vxi_readstatusbyte(); - printf "status byte is " . $statusbyte . "\n"; + print "status byte is " . $statusbyte . "\n"; $instr->vxi_create_intr_chan(); $instr->vxi_enable_srq("myhandle"); @@ -366,7 +366,7 @@ The only exceptions to this are the read and write methods my $instr = vxi_open( address => "192.168.0.62" ); $instr->vxi_write("*idn?"); my ( $bytes, $idn, $reason ) = $instr->vxi_read(); - printf "This instrument is: $idn\n"; + print "This instrument is: $idn\n"; $instr->vxi_close(); =head2 INTERACTIVE CLIENT #1 |