Fix json extract for strings carrying commas. Bug 3006

[exim.git] / test / scripts / 0000-Basic / 0438

diff --git a/test/scripts/0000-Basic/0438 b/test/scripts/0000-Basic/0438
index a8287cf9fe0361e44a81b403204311df4faeca06..eb6daf3d59f08337342794b6bcf99e49e3bd81be 100644 (file)
--- a/test/scripts/0000-Basic/0438
+++ b/test/scripts/0000-Basic/0438
@@ -3,18 +3,21 @@ need_ipv4
 #
 exim -d -DSERVER=server -bd -oX PORT_D
 ****
+millisleep 1000
 killdaemon
 # PID file must be DIR/spool/exim-daemon.* in order for "killdaemon" to work
 exim -d -DSERVER=server -bd -oX PORT_D -oP DIR/spool/exim-daemon.anotherpid
 ****
+millisleep 1000
 killdaemon
 #
 # Check for a SIGTERM daemon kill removing the pid file
 exim -d -DSERVER=server -bd -oX PORT_D -oP DIR/spool/mypidfile
 ****
 sleep 1
-ls DIR/spool
 sudo perl
+system "ls DIR/spool | grep pid";
+print "\n";
 open(IN, "<", "DIR/spool/mypidfile");
 while (<IN>) { kill "TERM", $_; }
 ****