fixed assignment (=> instead of =).
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@779 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
e6113d586d
commit
b57ee765de
@ -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(@_) }
|
||||
|
Loading…
Reference in New Issue
Block a user