Move rtld_db.h
[kopensolaris-gnu/glibc.git] / scripts / test-installation.pl
index 6e640cd..90cd9d7 100755 (executable)
@@ -1,23 +1,22 @@
 #! /usr/bin/perl -w
-
-# Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc.
+# Copyright (C) 1997, 1998, 1999, 2004 Free Software Foundation, Inc.
 # This file is part of the GNU C Library.
 # Contributed by Andreas Jaeger <aj@arthur.rhein-neckar.de>, 1997.
 
 # The GNU C Library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Library General Public License as
-# published by the Free Software Foundation; either version 2 of the
-# License, or (at your option) any later version.
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
 
 # The GNU C Library is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-# Library General Public License for more details.
+# Lesser General Public License for more details.
 
-# You should have received a copy of the GNU Library General Public
-# License along with the GNU C Library; see the file COPYING.LIB.  If not,
-# write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-# Boston, MA 02111-1307, USA.
+# You should have received a copy of the GNU Lesser General Public
+# License along with the GNU C Library; if not, write to the Free
+# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+# 02111-1307 USA.
 
 
 $PACKAGE = "libc";
@@ -38,7 +37,7 @@ sub usage {
 sub installation_problem {
   print "The script has found some problems with your installation!\n";
   print "Please read the FAQ and the README file and check the following:\n";
-  print "- Did you change the gcc specs file (neccessary after upgrading from\n";
+  print "- Did you change the gcc specs file (necessary after upgrading from\n";
   print "  Linux libc5)?\n";
   print "- Are there any symbolic links of the form libXXX.so to old libraries?\n";
   print "  Links like libm.so -> libm.so.5 (where libm.so.5 is an old library) are wrong,\n";
@@ -105,8 +104,9 @@ while (<SOVERSIONS>) {
     # - nss_ldap since it's not yet available
     # - libdb1 since it conflicts with libdb
     # - libnss1_* from glibc-compat add-on
+    # - libthread_db since it contains unresolved references
     if ($name ne "nss_ldap" && $name ne "db1"
-       && !($name =~/^nss1_/)) {
+       && !($name =~/^nss1_/) && $name ne "thread_db") {
       $link_libs .= " -l$name";
       $versions{$name} = $version;
     }
@@ -168,9 +168,8 @@ while (<LDD>) {
     }
   }
   if (/$ld_so_name/) {
-    ($version1, $version2) =
-      /$ld_so_name\.so\.([0-9\.]*)\s*=>.*\.so\.([0-9\.]*)/;
-    if ($version1 ne $version2 || $version1 ne $ld_so_version) {
+    ($version1) = /$ld_so_name\.so\.([0-9\.]*)/;
+    if ($version1 ne $ld_so_version) {
       print "The dynamic linker $ld_so_name.so is not correctly installed.\n";
       print "Please check your installation!\n";
       print "Offending line of ldd output: $_\n";