From 3a85914315786a9a7384bec759dfa75872c5db21 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Tue, 28 Aug 2007 20:12:21 +0000
Subject: [PATCH] Fixed local_port => remote_port

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@776 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 2abc735..a04f996 100644
--- a/lib/Qpsmtpd/Transaction.pm
+++ b/lib/Qpsmtpd/Transaction.pm
@@ -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";