[Slimp3-checkins] CVS: slimp3/server/lib/SliMP3 mas3507d.pm,1.9,1.10

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

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

Modified Files:
	mas3507d.pm 
Log Message:
Fixed a retarded bug in i2c parsing.
Perl rule #5712: don't use regexes on binary strings



Index: mas3507d.pm
===================================================================
RCS file: /cvsroot/slimp3/slimp3/server/lib/SliMP3/mas3507d.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** mas3507d.pm	6 Sep 2002 19:35:51 -0000	1.9
--- mas3507d.pm	29 Oct 2002 02:50:15 -0000	1.10
***************
*** 148,153 ****
  
  	# pack hex values and add write, ack commands
! 	$i2c =~ s/([\dA-Fa-f][\dA-Fa-f])/'w'.pack ("C", hex ($1))/eg;
! 	$i2c =~ s/ //g;
  
  	return $i2c;
--- 148,152 ----
  
  	# pack hex values and add write, ack commands
! 	$i2c =~ s/ ?([\dA-Fa-f][\dA-Fa-f]) ?/'w'.pack ("C", hex ($1))/eg;
  
  	return $i2c;
***************
*** 197,201 ****
  
  	# pack hex values and add write, ack commands
! 	$i2c =~ s/([\dA-Fa-f][\dA-Fa-f])/'w'.pack ("C", hex ($1))/eg;
  
  	return $i2c;
--- 196,200 ----
  
  	# pack hex values and add write, ack commands
! 	$i2c =~ s/ ?([\dA-Fa-f][\dA-Fa-f]) ?/'w'.pack ("C", hex ($1))/eg;
  
  	return $i2c;