Make readstb make sense :)

1 files changed, 14 insertions, 6 deletions

diff --git a/libvxi11client/perlbits/Client.xs b/libvxi11client/perlbits/Client.xs
index d471fda..b09ee0a 100644
--- a/libvxi11client/perlbits/Client.xs
+++ b/libvxi11client/perlbits/Client.xs
@@ -136,14 +136,22 @@ vxi_read(context, OUTLIST bytesread, OUTLIST buffer, bufferlen, waitlock, termch
 		buffer = malloc(bufferlen + 1);
 		bytesread = vxi11_read(context, buffer, bufferlen, waitlock, termchrset, termchr, reason);
 
-int
-vxi_readstatusbyte(context, waitforlock)
+void
+vxi_readstatusbyte(context, waitforlock, OUTLIST error, OUTLIST statusbyte)
 	VXI11::Client context
 	bool	waitforlock
-	CODE:
-		RETVAL = vxi11_readstatusbyte(context, waitforlock);
-	OUTPUT:
-		RETVAL
+	int* error
+	int* statusbyte 
+	CODE:
+		int ret = vxi11_readstatusbyte(context, waitforlock);
+		if(ret > 0){
+			*statusbyte = ret & 0xff;
+			*error = 0;
+		}
+		else {
+			*statusbyte = 0;
+			*error = ret;
+		}
 
 int
 vxi_remote(context, waitforlock)