GnuTLS: fix hanging callout connections

[users/jgh/exim.git] / test / scripts / 3000-Perl / 3000

diff --git a/test/scripts/3000-Perl/3000 b/test/scripts/3000-Perl/3000
index 30ac29eb36ede58fe404ea06debd859b73396ae8..c3c01115b2da1dc4232088bdfd55e5f3b185feb4 100644 (file)
--- a/test/scripts/3000-Perl/3000
+++ b/test/scripts/3000-Perl/3000
@@ -1,4 +1,5 @@
 # Embedded Perl
 # Embedded Perl

+munge perl_variants

 exim -be
 ${perl{foo}}
 ${perl{foo}{arg1}}
 exim -be
 ${perl{foo}}
 ${perl{foo}{arg1}}


@@ -18,6 +19,7 @@ ${perl{return_list}}
 ${perl{return_variable_vector}}
 ${sg{${perl{return_hash}}}{\\d+}{X}}
 
 ${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
 $tod_full // ${perl{change_locale}} // $tod_full
 ****
 exim -d-all+expand -be