From b57ee765de990394dbc5b916910c75430194062c Mon Sep 17 00:00:00 2001 From: "Peter J. Holzer" Date: Thu, 30 Aug 2007 20:18:42 +0000 Subject: [PATCH] fixed assignment (=> instead of =). git-svn-id: https://svn.perl.org/qpsmtpd/trunk@779 958fd67b-6ff1-0310-b445-bb7760255be9 --- lib/Qpsmtpd/Transaction.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Qpsmtpd/Transaction.pm b/lib/Qpsmtpd/Transaction.pm index a70a69b..27b2318 100644 --- a/lib/Qpsmtpd/Transaction.pm +++ b/lib/Qpsmtpd/Transaction.pm @@ -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(@_) }