[tests] simulate slow, small packets more quickly

simulate slow, small packets more quickly
1ms between chars is plenty slow; 100ms is excessive

fixup
master
Glenn Strauss 3 years ago
parent 96abd9cfb8
commit dc51e9d61c

@ -234,15 +234,15 @@ sub handle_http {
print $remote $_;
diag("<< ".$_."\n") if $is_debug;
select(undef, undef, undef, 0.1);
select(undef, undef, undef, 0.001);
print $remote "\015";
select(undef, undef, undef, 0.1);
select(undef, undef, undef, 0.001);
print $remote "\012";
select(undef, undef, undef, 0.1);
select(undef, undef, undef, 0.001);
print $remote "\015";
select(undef, undef, undef, 0.1);
select(undef, undef, undef, 0.001);
print $remote "\012";
select(undef, undef, undef, 0.1);
select(undef, undef, undef, 0.001);
}
}

Loading…
Cancel
Save