From: Jens Thomsen <jens@fiend.cis.com>
Date: Fri, 28 Jul 2000 15:54:49 +0000 (-0600)
Subject: Find green threads before native threads.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=24142eb29e13a3c1fffe9021ceab90a4be7b9da1;p=p5sagit%2Fp5-mst-13.2.git

Find green threads before native threads.

Subject: Re: Patch to jpl/JNI/Makefile.PL
Message-ID: <Pine.LNX.4.21.0007281553470.687-200000@fiend.cis.com>

p4raw-id: //depot/perl@6468
---

diff --git a/jpl/JNI/Makefile.PL b/jpl/JNI/Makefile.PL
index 1a54b9d..754bde6 100644
--- a/jpl/JNI/Makefile.PL
+++ b/jpl/JNI/Makefile.PL
@@ -115,11 +115,12 @@ sub find_stuff {
 
     my ($candidates, $locations) = @_;
 
-    my $lib;
+    my ($pos,$lib);
     $wanted = sub {
         foreach my $name (@$candidates) {
-            if (/$name$/ and ! /green_threads/ and !/include-old/) {
-                    $lib = $File::Find::name;
+	    $pos = $File::Find::name;
+            if (/$name$/ && $pos !~ /green_threads/ && $pos !~ /include-old/) {
+                    $lib = $pos;
             }
         }
     };