Testsuite: fix perl syntax. Bug 3009

Broken-by: 46a36afae41f

diff --git a/test/runtest b/test/runtest
index 80b7721fb13578df991dbd7f5c25c5d4caebe141..e918b0cdf0abb209ad1580c46982441a1421c1cd 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -1071,8 +1071,7 @@ RESET_AFTER_EXTRA_LINE_READ:
     s/250-AUTH ANONYMOUS PLAIN SCRAM-SHA-1\K SCRAM-SHA-256//;
 
     # mailq times change with when the run is done, vs. static-source spoolfiles
     s/250-AUTH ANONYMOUS PLAIN SCRAM-SHA-1\K SCRAM-SHA-256//;
 
     # mailq times change with when the run is done, vs. static-source spoolfiles

-    #s/\s*\d*[hd](?=   317 [0-9A-Za-z\-]{23} <nobody@test.ex>)/DDd/;
-    s/^\s*\d*[hd](?=   317 [0-9A-Za-z\-]{23} <nobody@test.)/DDd/;
+    s/\s*\d*[hd](?=   317 [0-9A-Za-z\-]{23} <nobody\@test.ex>)/DDd/;

     }
 
   # ======== stderr ========
     }
 
   # ======== stderr ========