# If the path for the socketfile does not exist, try to
# create it.
unless (-d "$socketpath") {
- mkdir("$socketpath") or die "Could not create $socketpath: $@\n";
+ mkdir("$socketpath") or die "Could not create $socketpath: $!\n";
}
# Delete an existing socket file.
Local => $socketfile,
Listen => SOMAXCONN,
Type => SOCK_STREAM,
- ) or die "Could not create socket: $@\n";
+ ) or die "Could not create socket: $!\n";
# Return the server object.
return $server;