added autochomp

1 files changed, 9 insertions, 1 deletions

diff --git a/libvxi11client/perlbits/Client.pm b/libvxi11client/perlbits/Client.pm
index 9405464..605d864 100644
--- a/libvxi11client/perlbits/Client.pm
+++ b/libvxi11client/perlbits/Client.pm
@@ -62,9 +62,17 @@ sub vxi_read {
                 waitlock => 0,
                 termchrset => 0,
 		termchr => 0,
+		autochomp => 1,
                 @_
         );
-	return vxi_read_long($self, $args{bufferlen}, $args{waitlock}, $args{termchrset},$args{termchr});
+
+	my ($bytes, $string, $reason) = vxi_read_long($self, $args{bufferlen}, $args{waitlock}, $args{termchrset},$args{termchr});
+
+	if ($args{autochomp}) {
+		chomp ($string);
+	}
+	
+	return ($bytes, $string, $reason);
 }
 
 1;