Taint: fix off-by-one in is_tainted(). Bug 2634

[users/heiko/exim.git] / test / confs / 3002

diff --git a/test/confs/3002 b/test/confs/3002
index 653d38d0480a4d792fde3ddafec965b6d88b6878..9b668f0027c90cc021b13bcb3290ab75fce98dbb 100644 (file)
--- a/test/confs/3002
+++ b/test/confs/3002
@@ -1,3 +1,8 @@
+# exim test configuration 3002
+exim_path = EXIM_PATH
+keep_environment = ^FOO\d : BAR
+add_environment = ADDED1=added1 : ADDED2=added2

 tls_advertise_hosts =
 tls_advertise_hosts =

-perl_startup = sub taint_flag { ${^TAINT} ? 'ON' : 'OFF' }
-perl_taintmode = yes
+perl_startup = $| = 1; \
+       print "Environment visible in Perl:\n"; \
+       print map { "$_=$ENV{$_}\n" } sort keys %ENV;