docmd and better termination fix

1 files changed, 21 insertions, 0 deletions

diff --git a/libvxi11client/perlbits/Client.pm b/libvxi11client/perlbits/Client.pm
index 605d864..df58e34 100644
--- a/libvxi11client/perlbits/Client.pm
+++ b/libvxi11client/perlbits/Client.pm
@@ -75,6 +75,27 @@ sub vxi_read {
 	return ($bytes, $string, $reason);
 }
 
+sub vxi_docmd {
+        my $self = shift;
+        my $cmd = shift;
+	my %args = (
+                datain => "",
+		datainlen => -1,
+		dataoutbufferlen => 256,
+                waitlock => 0,
+		autochomp => 1,
+                @_
+        );
+
+        my ($ret, $dataout, $dataoutlen) = vxi_docmd_long($self, $args{datain}, $args{datainlen}, $args{dataoutbufferlen}, $args{waitlock});
+
+        if ($args{autochomp}) {
+                chomp ($dataout);
+        }
+
+        return ($ret, $dataout);
+}
+
 1;
 __END__
 # Below is stub documentation for your module. You'd better edit it!