Testsuite: perl version oddity

[exim.git] / test / confs / 4600

diff --git a/test/confs/4600 b/test/confs/4600
index cce583909e5248e42cf70b5586bb24802ffa18a6..34baa999b373aee3b8bc9f492a70d073532cd159 100644 (file)
--- a/test/confs/4600
+++ b/test/confs/4600
@@ -11,7 +11,7 @@ acl_smtp_rcpt = check_rcpt
 begin acl
 
 check_rcpt:
-  accept       hosts =         HOSTIPV4
+  accept       condition =     ${if eq {$received_port}{PORT_D}}
                spf_guess =     pass
                logwrite =      spf_result         $spf_result (guess <$spf_result_guessed>)
                logwrite =      spf_header_comment $spf_header_comment
@@ -19,8 +19,8 @@ check_rcpt:
                logwrite =      spf_received       $spf_received
                logwrite =      ${authresults {$primary_hostname}}
 
-  accept       hosts =         127.0.0.1
-               spf =           pass : softfail : neutral
+  accept       condition =     ${if eq {$received_port}{PORT_S}}
+               spf =           pass : softfail : neutral : none
                logwrite =      spf_result         $spf_result
                logwrite =      spf_header_comment $spf_header_comment
                logwrite =      spf_smtp_comment   $spf_smtp_comment