This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
libdb may require pthread
authorJonathan Stowe <gellyfish@gellyfish.com>
Wed, 7 Feb 2007 11:56:17 +0000 (11:56 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 7 Feb 2007 12:27:58 +0000 (12:27 +0000)
Message-Id: <1170849377.13207.14.camel@coriolanus.gellyfish.com>

p4raw-id: //depot/perl@30155

hints/linux.sh

index 2415136..bd6afd2 100644 (file)
@@ -311,9 +311,12 @@ cat > UU/usethreads.cbu <<'EOCBU'
 case "$usethreads" in
 $define|true|[yY]*)
         ccflags="-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS $ccflags"
-        set `echo X "$libswanted "| sed -e 's/ c / pthread c /'`
-        shift
-        libswanted="$*"
+        if echo $libswanted | grep -v pthread >/dev/null
+        then
+            set `echo X "$libswanted "| sed -e 's/ c / pthread c /'`
+            shift
+            libswanted="$*"
+        fi
 
        # Somehow at least in Debian 2.2 these manage to escape
        # the #define forest of <features.h> and <time.h> so that
@@ -372,3 +375,37 @@ case "$cc" in
   d_dlerror='define'
   ;;
 esac
+
+# Under some circumstances libdb can get built in such a way as to
+# need pthread explicitly linked.
+
+libdb_needs_pthread="N"
+
+if echo " $libswanted " | grep -v " pthread " >/dev/null
+then
+   if echo " $libswanted " | grep " db " >/dev/null
+   then
+     for DBDIR in $glibpth
+     do
+       DBLIB="$DBDIR/libdb.so"
+       if [ -f $DBLIB ]
+       then
+         if nm -u $DBLIB | grep pthread >/dev/null
+         then
+           if ldd $DBLIB | grep pthread >/dev/null
+           then
+             libdb_needs_pthread="N"
+           else
+             libdb_needs_pthread="Y"
+           fi
+         fi
+       fi
+     done
+   fi
+fi
+
+case "$libdb_needs_pthread" in
+  "Y")
+    libswanted="$libswanted pthread"
+    ;;
+esac