[Spread-users] Bug in Perl API

[Theo Schlossnagle]

This has been fixed and submitted to CPAN.

3.17.1-1.05

tick-tock.... we shall see how long it takes to be visible to the world.

On Sunday, Oct 5, 2003, at 19:03 US/Eastern, Daniel L. Rall wrote:

> I've reviewed this change and agree that it should be included.  +1
>
> Richard Boulton wrote:
>> I've been evaluating spread over the last couple of days.  I've been
>> using the Perl API, and have been confused by my program failing to
>> receive messages, apparently at random.
>> I've tracked this down to an uninitialised variable in the perl XS 
>> code
>> - here follows a patch, which fixes the dropped messages for me.
>> Without this patch, the stype passed to SP_receive is undefined, so 
>> may
>> contain a value which causes the message to be dropped.
>> --- Spread.xs.old       2003-09-18 16:54:17.000000000 +0100
>> +++ Spread.xs   2003-09-18 16:53:13.000000000 +0100
>> @@ -660,7 +660,7 @@
>>           static int oldmsize=0, newmsize=(1<<15); /* 65k */
>>           int i, mbox, endmis, ret, ngrps, msize;
>>           int16 mtype;
>> -         service stype;
>> +         service stype=0;
>>           struct timeval towait;
>>           static char *groups=NULL;
>>           static char *mess=NULL;
>
>
>
> _______________________________________________
> Spread-users mailing list
> Spread-users at lists.spread.org
> http://lists.spread.org/mailman/listinfo/spread-users
>
// Theo Schlossnagle
// Principal Engineer -- http://www.omniti.com/~jesus/
// Postal Engine -- http://www.postalengine.com/
// Ecelerity: fastest MTA on earth