From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 4 Jul 2003 10:45:05 +0000 (+0000)
Subject: No energy now to figure out what is wrong with $0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1e6e959c1f897fc5428036f095b909e4bdac5c4e;p=p5sagit%2Fp5-mst-13.2.git

No energy now to figure out what is wrong with $0
(or ps) in Tru64.  The test works fine when run from
command line.

p4raw-id: //depot/perl@19982
---

diff --git a/ext/threads/t/join.t b/ext/threads/t/join.t
index 4217fbb..7f8f1c8 100644
--- a/ext/threads/t/join.t
+++ b/ext/threads/t/join.t
@@ -92,7 +92,7 @@ ok(1,"");
 }
 
 # We parse ps output so this is OS-dependent.
-if ($^O =~ /^(linux|dec_osf)$/) {
+if ($^O eq 'linux') {
   # First modify $0 in a subthread.
   print "# mainthread: \$0 = $0\n";
   threads->new( sub {