Change regex to be a bit more friendly against various

outputs from ps -f, regex suggest by rgs

p4raw-id: //depot/perl@18759

diff --git a/ext/threads/t/join.t b/ext/threads/t/join.t
index 255704c..28be717 100644 (file)
--- a/ext/threads/t/join.t
+++ b/ext/threads/t/join.t
@@ -105,7 +105,7 @@ if ($^O eq 'linux') { # We parse ps output so this is OS-dependent.
     while (<PS>) {
       s/\s+$//; # there seems to be extra whitespace at the end by ps(1)?
       print "# $_\n";
-      if (/^\S+\s+$$\s.+\sfoobar$/) {
+      if (/\b$$\b.+\bfoobar\b/) {
        $ok++;
        last;
       }