From: Artur Bergman <sky@nanisky.com>
Date: Fri, 21 Feb 2003 09:08:30 +0000 (+0000)
Subject: Change regex to be a bit more friendly against various
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=30cf872d9b23889ef292a003dd99d5ad22957835;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
       }