Change 12208 by pudge@pudge-mobile on 2001/09/25 19:06:48
Ignore SIGPIPE being set to IGNORE. Temporary fix until we upgrade
to new version of libnet. (Axel Rose, Paul Schinder, and a cast
of hundreds)
Affected files ...
... //depot/maint-5.6/macperl/macos/bundled_lib/blib/lib/Net/Cmd.pm#2 edit
... //depot/maint-5.6/macperl/macos/bundled_lib/blib/lib/Net/FTP/A.pm#2 edit
... //depot/maint-5.6/macperl/macos/bundled_lib/blib/lib/Net/FTP/I.pm#2 edit
Differences ...
==== //depot/maint-5.6/macperl/macos/bundled_lib/blib/lib/Net/Cmd.pm#2 (text) ====
Index: perl/macos/bundled_lib/blib/lib/Net/Cmd.pm
--- perl/macos/bundled_lib/blib/lib/Net/Cmd.pm.~1~ Tue Sep 25 13:15:05 2001
+++ perl/macos/bundled_lib/blib/lib/Net/Cmd.pm Tue Sep 25 13:15:05 2001
@@ -166,7 +166,7 @@
if (scalar(@_))
{
- local $SIG{PIPE} = 'IGNORE';
+ local $SIG{PIPE} = 'IGNORE' unless $^O eq 'MacOS';
my $str = join(" ", map { /\n/ ? do { my $n = $_; $n =~ tr/\n/ /; $n } : $_; }
@_) . "\015\012";
my $len = length $str;
==== //depot/maint-5.6/macperl/macos/bundled_lib/blib/lib/Net/FTP/A.pm#2 (text) ====
Index: perl/macos/bundled_lib/blib/lib/Net/FTP/A.pm
--- perl/macos/bundled_lib/blib/lib/Net/FTP/A.pm.~1~ Tue Sep 25 13:15:05 2001
+++ perl/macos/bundled_lib/blib/lib/Net/FTP/A.pm Tue Sep 25 13:15:05 2001
@@ -79,7 +79,7 @@
# If the remote server has closed the connection we will be signal'd
# when we write. This can happen if the disk on the remote server fills up
- local $SIG{PIPE} = 'IGNORE';
+ local $SIG{PIPE} = 'IGNORE' unless $^O eq 'MacOS';
my $len = length($tmp);
my $off = 0;
==== //depot/maint-5.6/macperl/macos/bundled_lib/blib/lib/Net/FTP/I.pm#2 (text) ====
Index: perl/macos/bundled_lib/blib/lib/Net/FTP/I.pm
--- perl/macos/bundled_lib/blib/lib/Net/FTP/I.pm.~1~ Tue Sep 25 13:15:05 2001
+++ perl/macos/bundled_lib/blib/lib/Net/FTP/I.pm Tue Sep 25 13:15:05 2001
@@ -53,7 +53,7 @@
# If the remote server has closed the connection we will be signal'd
# when we write. This can happen if the disk on the remote server fills up
- local $SIG{PIPE} = 'IGNORE';
+ local $SIG{PIPE} = 'IGNORE' unless $^O eq 'MacOS';
my $sent = $size;
my $off = 0;
End of Patch.
