From 7cc66cdf75d8db5003fe14eeca45e63f1f51b373 Mon Sep 17 00:00:00 2001 From: Robert Spier Date: Thu, 10 Jun 2004 06:26:18 +0000 Subject: [PATCH] "-" is a valid filename element. git-svn-id: https://svn.perl.org/qpsmtpd/trunk@239 958fd67b-6ff1-0310-b445-bb7760255be9 --- plugins/spamassassin | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plugins/spamassassin b/plugins/spamassassin index 3622e9a..331321c 100644 --- a/plugins/spamassassin +++ b/plugins/spamassassin @@ -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)