# Embedded Perl
munge perl_variants
exim -be
${perl{foo}}
${perl{foo}{arg1}}
${perl{foo_undef}}
${perl{foo_die}}
${perl{foo_warn}}
${perl{unknown}}
${perl{readvar}{primary_hostname}}
${perl{readvar}{notexists}}

${perl}
${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}}
${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}{9}}

${perl{return_scalar}}
${perl{return_list}}
${perl{return_variable_vector}}
${sg{${perl{return_hash}}}{\\d+}{X}}

this change-locale fails in earlier systems.  Works on Fedora 29.
$tod_full // ${perl{change_locale}} // $tod_full
****
exim -d-all+expand -be
${perl{foo}{arg1}}
${perl{foo_undef}}
${perl{debug_write}{debug from Perl\n}}
${perl{log_write}{log from Perl}}
****
exim -v -bs
ehlo x.y.z
mail from:<>
rcpt to:<abc@x.y.z>
quit
****
exim -bh 10.0.0.1
ehlo x.y.z
mail from:<>
rcpt to:<abc@x.y.z>
quit
****
exim -DSERVER=server -bd -oX PORT_D
****
client 127.0.0.1 PORT_D
??? 220
helo x.y.z
??? 250
mail from:<>
??? 250
rcpt to:<abc@x.y.z>
??? 250
quit
??? 221
****
killdaemon
exim -be
${perl{no_warn}}
${perl{foo_warn}}
****
no_msglog_check
