Fixed local_port => remote_port

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@776 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2007-08-28 20:12:21 +00:00
parent a7914ac0dc
commit 3a85914315

View File

@ -18,7 +18,7 @@ sub start {
# generate id
my $conn = $args{connection};
my $ip = $conn->local_port || "0";
my $ip = $conn->remote_port || "0";
my $start = time;
my $id = "$start.$$.$ip";