Testsuite: perl syntax (l-brace in RE)

diff --git a/test/runtest b/test/runtest
index fea40845c088f2fef9497817d7c0ef40aa629f86..3ecccb0b2a44cbab619d5dfd214cb85610be5236 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -1103,7 +1103,7 @@ RESET_AFTER_EXTRA_LINE_READ:
       }
 
     # Non-TLS bulds have a different Recieved: header expansion
-    s/^((.*)\t}}}}by \$primary_hostname \${if def:received_protocol {with \$received_protocol }})\(Exim \$version_number\)$/$1\${if def:tls_in_cipher_std { tls \$tls_in_cipher_std\n$2\t}}(Exim \$version_number)/;
+    s/^((.*)\t}}}}by \$primary_hostname \$\{if def:received_protocol \{with \$received_protocol }})\(Exim \$version_number\)$/$1\${if def:tls_in_cipher_std { tls \$tls_in_cipher_std\n$2\t}}(Exim \$version_number)/;
     s/^((\s*).*considering: with \$received_protocol }})\(Exim \$version_number\)$/$1\${if def:tls_in_cipher_std { tls \$tls_in_cipher_std\n$2\t}}(Exim \$version_number)/;
     if (/condition: def:tls_in_cipher_std$/)
       {