Index: trunk/ippScripts/scripts/ipp_serial_chip.pl
===================================================================
--- trunk/ippScripts/scripts/ipp_serial_chip.pl	(revision 15474)
+++ trunk/ippScripts/scripts/ipp_serial_chip.pl	(revision 15479)
@@ -49,5 +49,5 @@
 my @single = ();
 
-while ( scalar @while > 0 ) {
+while ( scalar @whole > 0 ) {
     my $value = shift @whole;
     push @single, $value;