No energy now to figure out what is wrong with $0
Jarkko Hietaniemi [Fri, 4 Jul 2003 10:45:05 +0000 (10:45 +0000)]
(or ps) in Tru64.  The test works fine when run from
command line.

p4raw-id: //depot/perl@19982

ext/threads/t/join.t

index 4217fbb..7f8f1c8 100644 (file)
@@ -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 {