- skip one subtest if /proc not mounted

Changed files:
    perl-test-noproc.patch -> 1.1

diff --git a/perl-test-noproc.patch b/perl-test-noproc.patch
new file mode 100644 (file)
index 0000000..9f6337f
--- /dev/null
+++ b/perl-test-noproc.patch
@@ -0,0 +1,21 @@
+--- 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");
+ }