fixed assignment (=> instead of =).

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@779 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Peter J. Holzer 2007-08-30 20:18:42 +00:00
parent e6113d586d
commit b57ee765de

View File

@ -10,7 +10,7 @@ use Time::HiRes qw(gettimeofday);
use IO::File qw(O_RDWR O_CREAT);
my $SALT_HOST => crypt(hostname, chr(65+rand(57)).chr(65+rand(57)));
my $SALT_HOST = crypt(hostname, chr(65+rand(57)).chr(65+rand(57)));
$SALT_HOST =~ tr/A-Za-z0-9//cd;
sub new { start(@_) }