]>
Commit | Line | Data |
---|---|---|
253f30cb | 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 | |
2daa4fb8 | 3 | @@ -118,6 +118,10 @@ |
443951d5 JB |
4 | |
5 | # We parse ps output so this is OS-dependent. | |
6 | if ($^O eq 'linux') { | |
2daa4fb8 AM |
7 | + if (! -d "/proc/$$") { |
8 | + # proc not mounted? skip. | |
9 | + skip("\$0 check: /proc not mounted?"); | |
10 | + } else { | |
11 | # First modify $0 in a subthread. | |
12 | #print "# mainthread: \$0 = $0\n"; | |
13 | threads->create(sub{ #print "# subthread: \$0 = $0\n"; | |
14 | @@ -148,6 +152,7 @@ | |
15 | } else { | |
16 | skip("\$0 check: opening 'ps -f |' failed: $!"); | |
17 | } | |
18 | + } | |
443951d5 | 19 | } else { |
2daa4fb8 | 20 | skip("\$0 check: only on Linux"); |
443951d5 | 21 | } |
2daa4fb8 | 22 |