Merge branch 'untested' of git://git.devl.org/git/malvira/mc1322x-tests into untested

mc1322x-load.pl

@@ -43,23 +43,16 @@ $ob->stopbits(1);
 $ob->handshake("rts");
 $ob->read_const_time(1000); # 1 second per unfulfilled "read" call
 
-<<<<<<< HEAD:mc1322x-load.pl
 my $s = 0;
 
- SEND:
-    do {
+while(1) { 
     
-	my $c;
-	my $count;
-	my $ret = '';
+    my $c; my $count; my $ret = ''; my $test='';
     
     if($s == 1) { print "performing secondary send\n"; }
     
     $ob->write(pack('C','0'));
     
-	my $ret = '';
-	my $test;
-	
     if($s == 1) { 
 	$test = 'ready'; 
     } else {
@@ -74,6 +67,7 @@ my $s = 0;
 	    next;
 	}
 	$ret .= $c;
+	print $ret . "\n";
     }
     print $ret . "\n";
     
@@ -89,16 +83,25 @@ my $s = 0;
 	
 	my $i = 1;
 	while(read(FILE, $c, 1)) {
-		print unpack('H',$c) . unpack('h',$c) if $verbose; 
 	    $i++;
 	    usleep(50); # this is as fast is it can go... 
+	    usleep(25) if ($s==1);
 	    $ob->write($c);
+#	    if($s==1) {
+#		($count, $c) = $ob->read(1);
+#		print $c;
+#	    }
 	}
     }
     
-	if(-e $second) {$s=1; $filename = $second; next SEND; }
+    last if ($s==1);
+    if((-e $second)) {
+	$s=1; $filename = $second;
+    } else {
+	last;
+    }
 
-};
+} 
 
 print "done.\n";