X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=ZOOM.xs;h=92b1db6c82554b435e7507da9a22b6e11d25c992;hb=ed4915d1e53a7983f1d0987e330edb3e6435d690;hp=ad6f4bad2c952e64c4ca2aa751e9df4c818b45fa;hpb=8dec60b264f2adf3bcd79b2ed3a0d9971541684d;p=ZOOM-Perl-moved-to-github.git

diff --git a/ZOOM.xs b/ZOOM.xs
index ad6f4ba..92b1db6 100644
--- a/ZOOM.xs
+++ b/ZOOM.xs
@@ -1,4 +1,4 @@
-/* $Id: ZOOM.xs,v 1.38 2006-04-06 12:41:25 mike Exp $ */
+/* $Id: ZOOM.xs,v 1.39 2006-04-06 12:50:41 mike Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -526,26 +526,22 @@ ZOOM_event(conns)
 		/*printf("* in ZOOM_event(%p)\n", conns);*/
 		if (!SvROK(conns)) {
 			/*printf("* argument is not a reference\n");*/
-			RETVAL = -1;
-			XSRETURN(1);
+			XSRETURN_IV(-1);
 		}
 		realconns = SvRV(conns);
 		/*printf("* realconns = %p\n", realconns);*/
 		if (SvTYPE(realconns) != SVt_PVAV) {
 			/*printf("* reference is not to an array\n");*/
-			RETVAL = -2;
-			XSRETURN(1);
+			XSRETURN_IV(-2);
 		}
 		n = av_len((AV*) realconns);
 		n++; /* The av_len() return-value is zero-based */
 		if (n == 0) {
 			/*printf("* No connections in referenced array\n");*/
-			RETVAL = -3;
-			XSRETURN(1);
+			XSRETURN_IV(-3);
 		} else if (n >= sizeof(cs)/sizeof(cs[0])) {
 			/*printf("* Too many connections (%d)\n", (int) n);*/
-			RETVAL = -4;
-			XSRETURN(1);
+			XSRETURN_IV(-4);
 		}
 
 		/*printf("* n = %d\n", n);*/