Fix listing a named queue by a non-admin user. Bug 2398

[exim.git] / test / confs / 3001

diff --git a/test/confs/3001 b/test/confs/3001
index 6e047f4408797640bde0e29e5ec8856600e447c9..bc0e7e771a7a890e9cc9ae05fd491094459184e3 100644 (file)
--- a/test/confs/3001
+++ b/test/confs/3001
@@ -1,2 +1,7 @@
+# exim test configuration 3001
+exim_path = EXIM_PATH

 tls_advertise_hosts =
 tls_advertise_hosts =

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