1 --- perl-5.12.0/dist/threads/t/join.t.orig Tue Sep 30 19:10:32 2003
2 +++ perl-5.12.0/dist/threads/t/join.t Mon Dec 8 14:49:12 2003
5 # We parse ps output so this is OS-dependent.
7 + if (! -d "/proc/$$") {
8 + # proc not mounted? skip.
9 + skip("\$0 check: /proc not mounted?");
11 # First modify $0 in a subthread.
12 #print "# mainthread: \$0 = $0\n";
13 threads->create(sub{ #print "# subthread: \$0 = $0\n";
16 skip("\$0 check: opening 'ps -f |' failed: $!");
20 skip("\$0 check: only on Linux");