diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2015-12-27 18:35:48 +0000 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2015-12-27 18:35:48 +0000 |
commit | afc1647a2b2b1da16818dc5332518782879bf004 (patch) | |
tree | 6d386c8cc6233c540f20c0a256795a485c6c60b1 | |
parent | 3d39ab1f4692a39fd400c81a78c0d93111293fe5 (diff) | |
download | perl-libnet-afc1647a2b2b1da16818dc5332518782879bf004.tar.gz |
Fix _set_status_closed() calls following commit 852982580b
-rw-r--r-- | lib/Net/Cmd.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Net/Cmd.pm b/lib/Net/Cmd.pm index fe4492b..2242600 100644 --- a/lib/Net/Cmd.pm +++ b/lib/Net/Cmd.pm @@ -263,7 +263,7 @@ sub _set_status_closed { sub _is_closed { my $cmd = shift; if (!defined fileno($cmd)) { - $cmd->_set_status_closed; + $cmd->_set_status_closed($!); return 1; } return 0; @@ -346,8 +346,9 @@ sub getline { my $select_ret = select($rout = $rin, undef, undef, $timeout); if ($select_ret > 0) { unless (sysread($cmd, $buf = "", 1024)) { + my $err = $!; $cmd->close; - $cmd->_set_status_closed; + $cmd->_set_status_closed($err); return; } |