Author: hjp
Date: Thu Aug 30 13:18:42 2007
New Revision: 779
Modified:
trunk/lib/Qpsmtpd/Transaction.pm
Log:
fixed assignment (=> instead of =).
Modified: trunk/lib/Qpsmtpd/Transaction.pm
==============================================================================
--- trunk/lib/Qpsmtpd/Transaction.pm (original)
+++ trunk/lib/Qpsmtpd/Transaction.pm Thu Aug 30 13:18:42 2007
@@ -10,7 +10,7 @@
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(@_) }