[Spread-cvs] cvs commit: spread/perl/Spread Spread.xs
jonathan at spread.org
jonathan at spread.org
Thu Sep 26 09:53:59 EDT 2002
jonathan 02/09/26 13:53:58
Modified: perl/Spread Spread.xs
Log:
Apply Theo's fix for mtype conversion bug.
Revision Changes Path
1.5 +2 -2 spread/perl/Spread/Spread.xs
Index: Spread.xs
===================================================================
RCS file: /storage/cvsroot/spread/perl/Spread/Spread.xs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Spread.xs 10 Sep 2001 17:18:10 -0000 1.4
+++ Spread.xs 26 Sep 2002 13:53:38 -0000 1.5
@@ -65,7 +65,7 @@
#ifdef MESSAGE_TOO_LONG
"Message Too Long", /* MESSAGE_TOO_LONG -17 */
#else
-#error You must install spread 3.15.2 client libraries to build perl Spread.
+#error You must install spread 3.17.0 client libraries to build perl Spread.
#endif
""};
static char *connect_params[] = {
@@ -742,7 +742,7 @@
}
SENDER=sv_2mortal(newSVpv(sender, 0));
STYPE=sv_2mortal(newSViv(stype));
- MTYPE=sv_2mortal(newSViv(stype));
+ MTYPE=sv_2mortal(newSViv(mtype));
ENDMIS=(endmis)?(&PL_sv_yes):(&PL_sv_no);
MESSAGE=sv_2mortal(newSVpv(mess, msize));
}
More information about the Spread-cvs
mailing list