X-Git-Url: https://git.exim.org/users/jgh/exim.git/blobdiff_plain/59371ea735c941334861aa5b8e1e9a06facf044f..f38a45371faa9f914ef69b57cbf1890c609b81cd:/test/scripts/3000-Perl/3000

diff --git a/test/scripts/3000-Perl/3000 b/test/scripts/3000-Perl/3000
index fc5002012..60db492ad 100644
--- a/test/scripts/3000-Perl/3000
+++ b/test/scripts/3000-Perl/3000
@@ -1,4 +1,5 @@
 # Embedded Perl
+munge perl_variants
 exim -be
 ${perl{foo}}
 ${perl{foo}{arg1}}
@@ -16,7 +17,7 @@ ${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}{9}}
 ${perl{return_scalar}}
 ${perl{return_list}}
 ${perl{return_variable_vector}}
-${perl{return_hash}}
+${sg{${perl{return_hash}}}{\\d+}{X}}
 
 $tod_full // ${perl{change_locale}} // $tod_full
 ****