Re^4: Trying to close Expect.pm telnet timeout situation to avoid overwhelming a small target device

Ah, yes. Your modification works as expected:

                sub {
                  my $fh = shift;
                  print Dumper $fh;
                  $fh->[0]->do_soft_close();
                  die "Timed out\n";
                }
[download]

No errors. Thank you.

Comment on Re^4: Trying to close Expect.pm telnet timeout situation to avoid overwhelming a small target device Download Code