]>
Commit | Line | Data |
---|---|---|
443951d5 JB |
1 | --- perl-5.8.2/ext/threads/t/join.t.orig Tue Sep 30 19:10:32 2003 |
2 | +++ perl-5.8.2/ext/threads/t/join.t Mon Dec 8 14:49:12 2003 | |
3 | @@ -93,6 +93,10 @@ | |
4 | ||
5 | # We parse ps output so this is OS-dependent. | |
6 | if ($^O eq 'linux') { | |
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->new( sub { | |
14 | @@ -123,6 +127,7 @@ | |
15 | } else { | |
16 | skip("\$0 check: opening 'ps -f |' failed: $!"); | |
17 | } | |
18 | + } | |
19 | } else { | |
20 | skip("\$0 check: only on Linux"); | |
21 | } |