make vxi_write accept the datastring as an unnamed parameter

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