This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
test fails when sockets not available (from Yitzchak Scott-Thoennes)
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 21 Mar 2000 02:46:01 +0000 (02:46 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 21 Mar 2000 02:46:01 +0000 (02:46 +0000)
p4raw-id: //depot/perl@5848

t/lib/io_unix.t

index 62569a5..247647a 100644 (file)
@@ -5,11 +5,6 @@ BEGIN {
         chdir 't' if -d 't';
         unshift @INC, '../lib' if -d '../lib';
     }
-    # ``use IO::Socket'' executes too early below in the os2 block
-    if ($^O eq 'dos') {
-        print "1..0 # Skip: no fork\n";
-       exit 0;
-    }
 }
 
 use Config;
@@ -27,7 +22,7 @@ BEGIN {
            $reason = 'IO extension unavailable';
        }
        elsif ($^O eq 'os2') {
-           use IO::Socket;
+           require IO::Socket;
 
            eval {IO::Socket::pack_sockaddr_un('/tmp/foo') || 1}
              or $@ !~ /not implemented/ or