Testsuite: perl syntax (l-brace in RE)
authorJeremy Harris <jgh146exb@wizmail.org>
Mon, 21 Oct 2019 16:39:37 +0000 (17:39 +0100)
committerJeremy Harris <jgh146exb@wizmail.org>
Mon, 21 Oct 2019 16:39:37 +0000 (17:39 +0100)
test/runtest

index fea4084..3ecccb0 100755 (executable)
@@ -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$/)
       {