"-" is a valid filename element.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@239 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Robert Spier 2004-06-10 06:26:18 +00:00
parent 2892df687a
commit 7cc66cdf75

View File

@ -98,7 +98,7 @@ sub check_spam {
my $paddr = sockaddr_in($port, $iaddr);
my $proto = getprotobyname('tcp');
if ( $self->{_args}->{spamd_socket} =~ /^([\w\/.]+)$/ ) { # connect to Unix Domain Socket
if ( $self->{_args}->{spamd_socket} =~ /^([\w\/.-]+)$/ ) { # connect to Unix Domain Socket
my $spamd_socket = $1;
socket(SPAMD, PF_UNIX, SOCK_STREAM, 0)