perl-test-noproc.patch

   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
   3 @@ -118,6 +118,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->create(sub{ #print "# subthread: \$0 = $0\n";
  14 @@ -148,6 +152,7 @@
  15      } else {
  16          skip("\$0 check: opening 'ps -f |' failed: $!");
  17      }
  18 +    }
  19  } else {
  20      skip("\$0 check: only on Linux");
  21  }
  22