- strict deps in -devel

[packages/perl.git] / perl-test-noproc.patch

--- 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 @@
 
 # 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: $!");
   }
+  }
 } else {
   skip("\$0 check: only on Linux");
 }