diff options
Diffstat (limited to 'libvxi11client/perlbits/Client.pm')
| -rw-r--r-- | libvxi11client/perlbits/Client.pm | 11 |
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__ |