named parameters for read()

1 files changed, 11 insertions, 0 deletions

diff --git a/libvxi11client/perlbits/Client.pm b/libvxi11client/perlbits/Client.pm
index 204027c..cff79f5 100644
--- a/libvxi11client/perlbits/Client.pm
+++ b/libvxi11client/perlbits/Client.pm
@@ -54,6 +54,17 @@ sub vxi_write {
 	return vxi_write_long($self, $args{data}, $args{len}, $args{waitlock}, $args{end});
 }
 
+sub vxi_read {
+	my $self = shift;
+	my %args = (
+                bufferlen => 1024,
+                waitlock => 0,
+                termchrset => 0,
+		termch => 0,
+                @_
+        );
+	return vxi_read_long($self, $args{bufferlen}, $args{waitlock}, $args{termchrset},$args{termchr});
+}
 
 1;
 __END__