Updated for Tcl 7.5a2 and Tk 4.1a2

[binutils.git] / gdb / solib.c

diff --git a/gdb/solib.c b/gdb/solib.c
index 89d7e7d2701727ec57f392aeb4327c7213c34975..c5ffa7a3dc3c96e01de2d529e21d2ecd5387dbb4 100644 (file)
--- a/gdb/solib.c
+++ b/gdb/solib.c
@@ -47,6 +47,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #include "frame.h"
 #include "regex.h"
 #include "inferior.h"
+#include "environ.h"
 #include "language.h"
 #include "gdbcmd.h"
 
@@ -238,12 +239,13 @@ solib_map_sections (so)
   filename = tilde_expand (so -> so_name);
   old_chain = make_cleanup (free, filename);
   
-  scratch_chan = openp (getenv ("PATH"), 1, filename, O_RDONLY, 0,
-                       &scratch_pathname);
+  scratch_chan = openp (get_in_environ (inferior_environ, "PATH"), 
+                       1, filename, O_RDONLY, 0, &scratch_pathname);
   if (scratch_chan < 0)
     {
-      scratch_chan = openp (getenv ("LD_LIBRARY_PATH"), 1, filename,
-                           O_RDONLY, 0, &scratch_pathname);
+      scratch_chan = openp (get_in_environ 
+                           (inferior_environ, "LD_LIBRARY_PATH"), 
+                           1, filename, O_RDONLY, 0, &scratch_pathname);
     }
   if (scratch_chan < 0)
     {