1# test non idle connection while reverse splicing gets timeout 2 3use strict; 4use warnings; 5use BSD::Socket::Splice qw(setsplice); 6 7our %args = ( 8 client => { 9 func => sub { errignore(@_); write_stream(@_); }, 10 len => 6, 11 sleep => 1, 12 }, 13 relay => { 14 func => sub { 15 setsplice(\*STDOUT, \*STDIN, undef, 3) 16 or die "reverse splice failed: $!"; 17 relay(@_); 18 }, 19 idle => 2, 20 nocheck => 1, 21 }, 22 len => 6, 23 md5 => "857f2261690a2305dba03062e778a73b", 24 noecho => 1, 25); 26