[Slimp3-checkins] CVS: slimp3/server/lib/SliMP3 Stream.pm,1.13,1.14

[Sean A. <sli...@us...>]

Update of /cvsroot/slimp3/slimp3/server/lib/SliMP3
In directory usw-pr-cvs1:/tmp/cvs-serv13605/lib/SliMP3

Modified Files:
	Stream.pm 
Log Message:

fixed a dumb bug in 16-bit addition which would cause the stream to 
stop after 2^16 packets.



Index: Stream.pm
===================================================================
RCS file: /cvsroot/slimp3/slimp3/server/lib/SliMP3/Stream.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Stream.pm	31 Mar 2002 10:50:07 -0000	1.13
--- Stream.pm	31 Mar 2002 11:28:07 -0000	1.14
***************
*** 88,92 ****
  	my ($a, $b) = @_;
  	my $sum = $a + $b;
! 	$sum -= 2**16 if ($sum > 2**16);
  	return $sum
  }
--- 88,92 ----
  	my ($a, $b) = @_;
  	my $sum = $a + $b;
! 	$sum -= 2**16 if ($sum >= 2**16);
  	return $sum
  }