Testsuite: perl syntax (l-brace in RE)

1 files changed, 1 insertions, 1 deletions

diff --git a/test/runtest b/test/runtest
index fea40845c..3ecccb0b2 100755
--- 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$/)
       {