- updated for 5.8.10

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

diff --git a/perl-test-noproc.patch b/perl-test-noproc.patch
index 9f6337f766003f9bc3f4f7416ddfc38ec89722a0..62d22ed627df613706f2630c775fcc5030f730b4 100644 (file)
--- a/perl-test-noproc.patch
+++ b/perl-test-noproc.patch
@@ -1,21 +1,22 @@
 --- 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 @@
+@@ -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");
  }
+