UNIX Domain sockets on HPUX

[Russ Jones]

I'm trying to use UNIX Domain sockets on HPUX 11.11, using Perl 5.6.1 for
PA-RISC2.0, the IO::Socket module, without much luck.

I've tried the code in Perl Cookbook, and many modifications. Here's my
code:

#!/usr/bin/perl
use IO::Socket;
use strict;
use warnings;

unlink "/tmp/mysock";
our $server = IO::Socket::UNIX->new(LocalAddr => "/tmp/mysock",
Type => SOCK_DGRAM,
Listen => 5)
or die $!;

while (my $client = $server->accept())
{
while (defined (my $buf = <$client>))
{
print "$buf\n";
}
}

close ($server);

exit(0);



When I run it, the ->new() call appears to work. No error codes and the
debugger reports that $server is a socket. The /tmp/mysock file doesn't
get created, though.

Then the while($client = ... ) just falls through. It doesn't wait for
the socket to say anything, it just skips to the close() statement and
exits.

I've done this with INET sockets a number of times with no problems, but
this is the first time I've tried UNIX sockets.

I wonder if it might be a HPUX issue. If anyone has any ideas, I'd
appreciate hearing about them.

Thanks
Russ Jones