diff options
| author | Graham Barr <gbarr@pobox.com> | 2003-06-02 14:12:01 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2003-06-02 14:12:01 +0000 |
| commit | 254284b783944566f0bc18d1abaae17d18beaf42 (patch) | |
| tree | c52063435b34426c821155afc5f5379c3aafade0 | |
| parent | ce43eb5123cf131471bc94d6050be442ab905bc5 (diff) | |
| download | perl-libnet-254284b783944566f0bc18d1abaae17d18beaf42.tar.gz | |
Net::Cmd
- Avoid process death from SIGPIPE
| -rw-r--r-- | Net/Cmd.pm | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -1,4 +1,4 @@ -# Net::Cmd.pm $Id: //depot/libnet/Net/Cmd.pm#32 $ +# Net::Cmd.pm $Id: //depot/libnet/Net/Cmd.pm#33 $ # # Copyright (c) 1995-1997 Graham Barr <gbarr@pobox.com>. All rights reserved. # This program is free software; you can redistribute it and/or @@ -420,6 +420,8 @@ sub datasend vec($win,fileno($cmd),1) = 1; my $timeout = $cmd->timeout || undef; + local $SIG{PIPE} = 'IGNORE' unless $^O eq 'MacOS'; + while($len) { my $wout; @@ -467,6 +469,7 @@ sub rawdatasend vec($win,fileno($cmd),1) = 1; my $timeout = $cmd->timeout || undef; + local $SIG{PIPE} = 'IGNORE' unless $^O eq 'MacOS'; while($len) { my $wout; @@ -500,6 +503,7 @@ sub dataend return 1 unless(exists ${*$cmd}{'net_cmd_need_crlf'}); + local $SIG{PIPE} = 'IGNORE' unless $^O eq 'MacOS'; syswrite($cmd,"\015\012",2) if ${*$cmd}{'net_cmd_need_crlf'}; @@ -508,7 +512,7 @@ sub dataend syswrite($cmd,".\015\012",3); - delete ${*$cmd}{'net_cmd_lastch'}; + delete ${*$cmd}{'net_cmd_need_crlf'}; $cmd->response() == CMD_OK; } @@ -755,6 +759,6 @@ it under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/Cmd.pm#32 $> +I<$Id: //depot/libnet/Net/Cmd.pm#33 $> =cut |