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 (file)
--- 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;
             }
         }
     };