changed the test condition to match the end of the captured string.
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:
parent
834ac85603
commit
60582e33bf
|
@ -34,8 +34,6 @@ if($filename eq '') {
|
|||
exit;
|
||||
}
|
||||
|
||||
print @ARGV;
|
||||
|
||||
my $ob = Device::SerialPort->new ($term) or die "Can't start $term\n";
|
||||
# next test will die at runtime unless $ob
|
||||
|
||||
|
@ -64,7 +62,7 @@ while(1) {
|
|||
$test = 'CONNECT';
|
||||
}
|
||||
|
||||
until($ret eq $test) {
|
||||
until($ret =~ /$test$/) {
|
||||
($count,$c) = $ob->read(1);
|
||||
if ($count == 0) {
|
||||
print '.';
|
||||
|
|
Loading…
Reference in a new issue