SOURCES: perl-test-noproc.patch - updated

[arekm]

Author: arekm                        Date: Wed Jan  9 13:28:16 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- updated

---- Files affected:
SOURCES:
   perl-test-noproc.patch (1.1 -> 1.2) 

---- Diffs:

================================================================
Index: SOURCES/perl-test-noproc.patch
diff -u SOURCES/perl-test-noproc.patch:1.1 SOURCES/perl-test-noproc.patch:1.2
--- SOURCES/perl-test-noproc.patch:1.1	Mon Dec  8 15:35:44 2003
+++ SOURCES/perl-test-noproc.patch	Wed Jan  9 14:28:11 2008
@@ -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");
  }
+
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/SOURCES/perl-test-noproc.patch?r1=1.1&r2=1.2&f=u