[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