Testsuite: revert some of the modernish Perl constructs

[exim.git] / test / stderr / 0124

diff --git a/test/stderr/0124 b/test/stderr/0124
index a7246fcf855c5ff2bcfd2c91aff3597c94abbeb8..d259f4768f0cc51c73a466fa421f911b1f85ff27 100644 (file)
--- a/test/stderr/0124
+++ b/test/stderr/0124
@@ -25,7 +25,9 @@ LOG: no host name found for IP address V4NET.0.0.97
 >>> host in "+relay_hosts"? no (end of list)
 >>> accept: condition test failed in ACL "check_recipient"
 >>> processing "deny"
+>>>   message: relay not permitted
 >>> deny: condition test succeeded in ACL "check_recipient"
+>>> end of ACL "check_recipient": DENY
 LOG: H=[V4NET.0.0.97] F=<userx@test.ex> rejected RCPT <userx@external.test.ex>: relay not permitted
 >>> using ACL "check_recipient"
 >>> processing "accept"
@@ -42,5 +44,7 @@ LOG: H=[V4NET.0.0.97] F=<userx@test.ex> rejected RCPT <userx@external.test.ex>:
 >>> host in "+relay_hosts"? no (end of list)
 >>> accept: condition test failed in ACL "check_recipient"
 >>> processing "deny"
+>>>   message: relay not permitted
 >>> deny: condition test succeeded in ACL "check_recipient"
+>>> end of ACL "check_recipient": DENY
 LOG: H=[V4NET.0.0.97] F=<userx@test.ex> rejected RCPT <userx@external.test.ex>: relay not permitted