PERFORCE change 12208 for review

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.