Apple-2-SW/contiki
1
0
Fork 0
mirror of https://github.com/oliverschmidt/contiki.git synced 2024-07-16 21:29:32 +00:00
Code Issues Projects Releases Wiki Activity

changed the test condition to match the end of the captured string.

Browse Source 
this is better in case there is junk at the beginning or if the first
one is incomplete.

also removed the debug ARGV print
This commit is contained in:
Mariano Alvira 2009-05-09 13:22:14 -04:00
parent 834ac85603
commit 60582e33bf
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mc1322x-load.pl
View File

@ -34,8 +34,6 @@ if($filename eq '') {
exit; exit;
} }
print @ARGV;
my $ob = Device::SerialPort->new ($term) or die "Can't start $term\n"; my $ob = Device::SerialPort->new ($term) or die "Can't start $term\n";
# next test will die at runtime unless $ob # next test will die at runtime unless $ob
@ -64,7 +62,7 @@ while(1) {
$test = 'CONNECT'; $test = 'CONNECT';
} }
until($ret eq $test) { until($ret =~ /$test$/) {
($count,$c) = $ob->read(1); ($count,$c) = $ob->read(1);
if ($count == 0) { if ($count == 0) {
print '.'; print '.';