From: hadaq <hadaq>
Date: Wed, 8 Feb 2012 18:24:07 +0000 (+0000)
Subject: corrected return value, mt
X-Git-Tag: v6.0~71
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=13cd6c3b23648df0054684313e68fe86b67ce0b4;p=trbnettools.git

corrected return value, mt
---

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])));