Do not die if no packets are coming in.
This commit is contained in:
parent
aefbbd5611
commit
72194bf139
|
@ -104,7 +104,7 @@ sub get_packet{
|
||||||
};
|
};
|
||||||
|
|
||||||
my $cnt=0;
|
my $cnt=0;
|
||||||
while(++$cnt<100){
|
while(1){
|
||||||
if(length($buffer)<2){
|
if(length($buffer)<2){
|
||||||
_get_bytes();
|
_get_bytes();
|
||||||
}elsif($buffer !~ /^\\[12]/){
|
}elsif($buffer !~ /^\\[12]/){
|
||||||
|
@ -123,8 +123,12 @@ sub get_packet{
|
||||||
}else{
|
}else{
|
||||||
_get_bytes();
|
_get_bytes();
|
||||||
};
|
};
|
||||||
|
if(++$cnt%100 == 0){
|
||||||
|
if(!$quiet){
|
||||||
|
print STDERR "No packets for 5 seconds?\n";
|
||||||
|
};
|
||||||
|
};
|
||||||
};
|
};
|
||||||
die "No packets for 5seconds?\n";
|
|
||||||
};
|
};
|
||||||
|
|
||||||
sub rest{
|
sub rest{
|
||||||
|
|
Loading…
Reference in New Issue