diff options
Diffstat (limited to 'libvxi11client/perlbits/Client.pm')
| -rw-r--r-- | libvxi11client/perlbits/Client.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libvxi11client/perlbits/Client.pm b/libvxi11client/perlbits/Client.pm index cff79f5..3c24def 100644 --- a/libvxi11client/perlbits/Client.pm +++ b/libvxi11client/perlbits/Client.pm @@ -45,13 +45,14 @@ sub vxi_disable_srq { sub vxi_write { my $self = shift; + my $data = shift; my %args = ( len => -1, waitlock => 0, end => 1, @_ ); - return vxi_write_long($self, $args{data}, $args{len}, $args{waitlock}, $args{end}); + return vxi_write_long($self, $data, $args{len}, $args{waitlock}, $args{end}); } sub vxi_read { @@ -60,7 +61,7 @@ sub vxi_read { bufferlen => 1024, waitlock => 0, termchrset => 0, - termch => 0, + termchr => 0, @_ ); return vxi_read_long($self, $args{bufferlen}, $args{waitlock}, $args{termchrset},$args{termchr}); |