From 13cd6c3b23648df0054684313e68fe86b67ce0b4 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Wed, 8 Feb 2012 18:24:07 +0000
Subject: [PATCH] corrected return value, mt

---
 libtrbnet_perl/TrbNet.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libtrbnet_perl/TrbNet.xs b/libtrbnet_perl/TrbNet.xs
index 2e29632..0492445 100644
--- a/libtrbnet_perl/TrbNet.xs
+++ b/libtrbnet_perl/TrbNet.xs
@@ -93,8 +93,8 @@ trb_register_write(trb_address, reg_address, value)
        int status;
        
      PPCODE:
-       status = trb_register_write(trb_address, reg_address, value);
-       if (status != -1) {
+       status = trb_register_write(trb_address,reg_address, value);
+       if (status < 0) {
        	  XSRETURN_UNDEF;
        }
        XPUSHs(sv_2mortal(newSVuv(buffer[1])));
-- 
2.43.0