---- perl-5.8.2/ext/threads/t/join.t.orig Tue Sep 30 19:10:32 2003
-+++ perl-5.8.2/ext/threads/t/join.t Mon Dec 8 14:49:12 2003
-@@ -93,6 +93,10 @@
+--- perl-5.12.0/dist/threads/t/join.t.orig Tue Sep 30 19:10:32 2003
++++ perl-5.12.0/dist/threads/t/join.t Mon Dec 8 14:49:12 2003
+@@ -118,6 +118,10 @@
# We parse ps output so this is OS-dependent.
if ($^O eq 'linux') {
-+ if (! -d "/proc/$$") {
-+ # proc not mounted? skip.
-+ skip("\$0 check: /proc not mounted?");
-+ } else {
- # First modify $0 in a subthread.
- print "# mainthread: \$0 = $0\n";
- threads->new( sub {
-@@ -123,6 +127,7 @@
- } else {
- skip("\$0 check: opening 'ps -f |' failed: $!");
- }
-+ }
++ if (! -d "/proc/$$") {
++ # proc not mounted? skip.
++ skip("\$0 check: /proc not mounted?");
++ } else {
+ # First modify $0 in a subthread.
+ #print "# mainthread: \$0 = $0\n";
+ threads->create(sub{ #print "# subthread: \$0 = $0\n";
+@@ -148,6 +152,7 @@
+ } else {
+ skip("\$0 check: opening 'ps -f |' failed: $!");
+ }
++ }
} else {
- skip("\$0 check: only on Linux");
+ skip("\$0 check: only on Linux");
}
+