or $@ !~ /not implemented/ or
$reason = 'compiled without TCP/IP stack v4';
}
- elsif ($^O =~ m/^(?:qnx|nto|vos)$/ ) {
- $reason = 'Not implemented';
+ elsif ($^O =~ m/^(?:qnx|nto|vos|MSWin32)$/ ) {
+ $reason = "UNIX domain sockets not implemented on $^O";
}
elsif (! $Config{'d_fork'}) {
$reason = 'no fork';
$PATH = "sock-$$";
+if ($^O eq 'os2') { # Can't create sockets with relative path...
+ require Cwd;
+ my $d = Cwd::cwd();
+ $d =~ s/^[a-z]://i;
+ $PATH = "$d/$PATH";
+}
+
# Test if we can create the file within the tmp directory
if (-e $PATH or not open(TEST, ">$PATH") and $^O ne 'os2') {
print "1..0 # Skip: cannot open '$PATH' for write\n";