in reply to Re^2: Trying to close Expect.pm telnet timeout situation to avoid overwhelming a small target device
in thread Trying to close Expect.pm telnet timeout situation to avoid overwhelming a small target device

Sure, the $VAR1 = is an artifact, but not the square brackets... (which indicate that Data::Dumper was given an arrayref).  Compare with your first dump in the line: 

scriptbed login: $VAR1 = bless( \*Symbol::GEN0, 'Expect' );

[download]
  • Comment on Re^3: Trying to close Expect.pm telnet timeout situation to avoid overwhelming a small target device
  • Select or Download Code

Replies are listed 'Best First'.
Re^4: Trying to close Expect.pm telnet timeout situation to avoid overwhelming a small target device
by elmoz (Initiate) on Nov 25, 2008 at 18:08 UTC
    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.
[reply]
[d/l]

In Section Seekers of Perl Wisdom