This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/IO/t/io_unix.t
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 2 Apr 2006 21:57:19 +0000 (00:57 +0300)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 3 Apr 2006 08:57:57 +0000 (08:57 +0000)
Message-ID: <44301E8F.2060503@gmail.com>

p4raw-id: //depot/perl@27699

ext/IO/t/io_unix.t

index 4eaf843..21b8a90 100644 (file)
@@ -52,7 +52,26 @@ print "1..5\n";
 
 use IO::Socket;
 
-$listen = IO::Socket::UNIX->new(Local=>$PATH, Listen=>0) || die "$!";
+$listen = IO::Socket::UNIX->new(Local => $PATH, Listen => 0);
+
+# Sometimes UNIX filesystems are mounted for security reasons
+# with "nodev" option which spells out "no" for creating UNIX
+# local sockets.  Therefore we will retry with a File::Temp
+# generated filename from a temp directory.
+unless (defined $listen) {
+    eval { require File::Temp };
+    unless ($@) {
+       import File::Temp 'mktemp';
+       for my $TMPDIR ($ENV{TMPDIR}, "/tmp") {
+           if (defined $TMPDIR && -d $TMPDIR && -w $TMPDIR) {
+               $PATH = mktemp("$TMPDIR/sXXXXXXXX");
+               last if $listen = IO::Socket::UNIX->new(Local => $PATH,
+                                                       Listen => 0);
+           }
+       }
+    }
+    defined $listen or die "$PATH: $!";
+}
 print "ok 1\n";
 
 if($pid = fork()) {