perl-test-noproc.patch

   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  }