Testsuite: revert some of the modernish Perl constructs

[exim.git] / test / stderr / 0401

diff --git a/test/stderr/0401 b/test/stderr/0401
index 10afc1392ca9d66714311a7436455b04d3c750eb..ef9181703afe2c4d7051e772cde6315c84d90028 100644 (file)
--- a/test/stderr/0401
+++ b/test/stderr/0401
@@ -11,6 +11,7 @@
 >>> check hosts = TESTSUITE/aux-var/0401.hosts1
 >>> host in "TESTSUITE/aux-var/0401.hosts1"? yes (matched "V4NET.9.8.7" in TESTSUITE/aux-var/0401.hosts1)
 >>> accept: condition test succeeded in ACL "connect"
 >>> check hosts = TESTSUITE/aux-var/0401.hosts1
 >>> host in "TESTSUITE/aux-var/0401.hosts1"? yes (matched "V4NET.9.8.7" in TESTSUITE/aux-var/0401.hosts1)
 >>> accept: condition test succeeded in ACL "connect"

+>>> end of ACL "connect": ACCEPT

 >>> xxx in helo_lookup_domains? no (end of list)
 >>> using ACL "mail"
 >>> processing "accept"
 >>> xxx in helo_lookup_domains? no (end of list)
 >>> using ACL "mail"
 >>> processing "accept"