[poe-commits] poe/POE Pipe.pm,1.4,1.5

[<rc...@us...>]

Update of /cvsroot/poe/poe/POE
In directory usw-pr-cvs1:/tmp/cvs-serv18693/POE

Modified Files:
	Pipe.pm 
Log Message:
Skip socketpair() and pipe() on MacOS pre-X.  Even with a vastly
improved Perl build, these systems seem to have strange problems with
non-blocking socketpair() and pipe().


Index: Pipe.pm
===================================================================
RCS file: /cvsroot/poe/poe/POE/Pipe.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Pipe.pm	4 Mar 2002 23:52:55 -0000	1.4
--- Pipe.pm	22 Jun 2002 06:15:33 -0000	1.5
***************
*** 47,58 ****
             $set_it
           )
!       or die "ioctl: $!";
    }
  
    # Do it the way everyone else does.
    else {
!     my $flags = fcntl($socket_handle, F_GETFL, 0) or die "getfl: $!";
      $flags = fcntl($socket_handle, F_SETFL, $flags | O_NONBLOCK)
!       or die "setfl: $!";
    }
  }
--- 47,58 ----
             $set_it
           )
!       or die "ioctl fails: $!";
    }
  
    # Do it the way everyone else does.
    else {
!     my $flags = fcntl($socket_handle, F_GETFL, 0) or die "getfl fails: $!";
      $flags = fcntl($socket_handle, F_SETFL, $flags | O_NONBLOCK)
!       or die "setfl fails: $!";
    }
  }
***************
*** 73,84 ****
             $unset_it
           )
!       or die "ioctl: $!";
    }
  
    # Do it the way everyone else does.
    else {
!     my $flags = fcntl($socket_handle, F_GETFL, 0) or die "getfl: $!";
      $flags = fcntl($socket_handle, F_SETFL, $flags & ~O_NONBLOCK)
!       or die "setfl: $!";
    }
  }
--- 73,84 ----
             $unset_it
           )
!       or die "ioctl fails: $!";
    }
  
    # Do it the way everyone else does.
    else {
!     my $flags = fcntl($socket_handle, F_GETFL, 0) or die "getfl fails: $!";
      $flags = fcntl($socket_handle, F_SETFL, $flags & ~O_NONBLOCK)
!       or die "setfl fails: $!";
    }
  }