develooper Front page | perl.perl5.porters | Postings from July 2001

[PATCH ext/IO/lib/IO/t/io_sock.t] for QNX

Thread Next
From:
Norton Allen
Date:
July 4, 2001 19:52
Subject:
[PATCH ext/IO/lib/IO/t/io_sock.t] for QNX
Message ID:
200107050259.WAA06843@bottesini.harvard.edu
exit 0
=============

QNX's socket library can set a socket to non-blocking,
but does not successfully return the non-blocking
status. Bug is reportedly to be fixed in a later version.

  -Norton Allen

*** ../ORIG/perl-11148/ext/IO/lib/IO/t/io_sock.t	Tue Jun 26 09:27:15 2001
--- perl-11148/ext/IO/lib/IO/t/io_sock.t	Wed Jul  4 22:52:21 2001
***************
*** 205,213 ****
  print "not " unless $server->blocking;
  print "ok 13\n";
  
! $server->blocking(0);
! print "not " if $server->blocking;
! print "ok 14\n";
  
  ### TEST 15
  ### Set up some data to be transfered between the server and
--- 205,219 ----
  print "not " unless $server->blocking;
  print "ok 13\n";
  
! if ( $^O eq 'qnx' ) {
!   # QNX library bug: Can set non-blocking on socket, but
!   # cannot return that status.
!   print "ok 14 # skipped\n";
! } else {
!   $server->blocking(0);
!   print "not " if $server->blocking;
!   print "ok 14\n";
! }
  
  ### TEST 15
  ### Set up some data to be transfered between the server and

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About