diff options
author | Philip Hazel <ph10@hermes.cam.ac.uk> | 2007-02-08 15:16:19 +0000 |
---|---|---|
committer | Philip Hazel <ph10@hermes.cam.ac.uk> | 2007-02-08 15:16:19 +0000 |
commit | 4311097ecf0db28101920522340c59469582529e (patch) | |
tree | 1c8636a5d16e7e0ea4fb9209389bdbc2e33fdcea /test/runtest | |
parent | 7c5214ecc29b8fc23e15030db8207e3ff2cb4fc6 (diff) |
Fix bad outgoing_port in log line for delivery of a re-used connection.
Diffstat (limited to 'test/runtest')
-rwxr-xr-x | test/runtest | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/runtest b/test/runtest index 328b89958..4e511dc36 100755 --- a/test/runtest +++ b/test/runtest @@ -1,6 +1,6 @@ #! /usr/bin/perl -w -# $Cambridge: exim/test/runtest,v 1.23 2007/01/31 16:52:12 ph10 Exp $ +# $Cambridge: exim/test/runtest,v 1.24 2007/02/08 15:16:19 ph10 Exp $ ############################################################################### # This is the controlling script for the "new" test suite for Exim. It should # @@ -521,8 +521,8 @@ while(<IN>) s/\(port=(\d+)/"(port=" . new_value($1, "%s", \$next_port)/e; # This handles "connection from" and the like, when the port is given - if (!/listening for SMTP on/ && !/Connecting to/ && !/=>/ && !/\*>/ && - !/Connection refused/) + if (!/listening for SMTP on/ && !/Connecting to/ && !/=>/ && !/->/ + && !/\*>/ && !/Connection refused/) { s/\[([a-z\d:]+|\d+(?:\.\d+){3})\]:(\d+)/"[".$1."]:".new_value($2,"%s",\$next_port)/ie; } |