Testsuite: revert some of the modernish Perl constructs

[exim.git] / test / stderr / 3404

diff --git a/test/stderr/3404 b/test/stderr/3404
index fa3e332985a43398818352f912b88b2366e47997..361f9fd8287f52e4cded2cf9454bf5782ec91c91 100644 (file)
--- a/test/stderr/3404
+++ b/test/stderr/3404
@@ -18,8 +18,9 @@ Connecting to 127.0.0.1 [127.0.0.1]:1224 ... connected
   SMTP>> writing message and terminating "."
   SMTP<< 250 OK
   SMTP>> QUIT
   SMTP>> writing message and terminating "."
   SMTP<< 250 OK
   SMTP>> QUIT

+  SMTP(close)>>

 LOG: MAIN
 LOG: MAIN

-  => userx@domain.com R=all T=smtp H=127.0.0.1 [127.0.0.1]
+  => userx@domain.com R=all T=smtp H=127.0.0.1 [127.0.0.1] A=plain C="250 OK"

 LOG: MAIN
   Completed
 LOG: MAIN
 LOG: MAIN
   Completed
 LOG: MAIN


@@ -42,8 +43,9 @@ Connecting to 127.0.0.1 [127.0.0.1]:1224 ... connected
   SMTP>> writing message and terminating "."
   SMTP<< 250 OK
   SMTP>> QUIT
   SMTP>> writing message and terminating "."
   SMTP<< 250 OK
   SMTP>> QUIT

+  SMTP(close)>>

 LOG: MAIN
 LOG: MAIN

-  => userx@domain.com R=all T=smtp H=127.0.0.1 [127.0.0.1]
+  => userx@domain.com R=all T=smtp H=127.0.0.1 [127.0.0.1] A=plain C="250 OK"

 LOG: MAIN
   Completed
 LOG: MAIN
 LOG: MAIN
   Completed
 LOG: MAIN


@@ -70,7 +72,8 @@ Connecting to 127.0.0.1 [127.0.0.1]:1224 ... connected
   SMTP>> writing message and terminating "."
   SMTP<< 250 OK
   SMTP>> QUIT
   SMTP>> writing message and terminating "."
   SMTP<< 250 OK
   SMTP>> QUIT

+  SMTP(close)>>

 LOG: MAIN
 LOG: MAIN

-  => userx@domain.com R=all T=smtp H=127.0.0.1 [127.0.0.1]
+  => userx@domain.com R=all T=smtp H=127.0.0.1 [127.0.0.1] A=login C="250 OK"

 LOG: MAIN
   Completed
 LOG: MAIN
   Completed