corrected return value, mt

diff --git a/libtrbnet_perl/TrbNet.xs b/libtrbnet_perl/TrbNet.xs
index 2e29632b134a3a17752333220e2ccbbdc1238081..0492445c21c04874cee53a9faeee4916a9eb4b53 100644 (file)
--- 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])));