From 38c1a469e5931763e9775e0046e47fc4ba836a46 Mon Sep 17 00:00:00 2001
From: "Michael J. Chudobiak" <mjc@avtechpulse.com>
Date: Wed, 23 Jan 2013 14:21:06 -0500
Subject: make vxi_write accept the datastring as an unnamed parameter

---
 libvxi11client/perlbits/Client.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'libvxi11client/perlbits/Client.pm')

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