Memory management: when running under the testsuite, check every string variable...

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

diff --git a/test/scripts/3000-Perl/3000 b/test/scripts/3000-Perl/3000
index fc500201230823ff9afad09575e3425f58b0bc99..30ac29eb36ede58fe404ea06debd859b73396ae8 100644 (file)
--- a/test/scripts/3000-Perl/3000
+++ b/test/scripts/3000-Perl/3000
@@ -16,7 +16,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
 ****