libio.exp (test_libio): Reset ld_library_path before appending the same path(s) again.

        * lib/libio.exp (test_libio): Reset ld_library_path before appending
        the same path(s) again.

From-SVN: r20767

diff --git a/libio/testsuite/ChangeLog b/libio/testsuite/ChangeLog
index 0c443afb34b10ab9f17c43fb9acf3c1432a252f4..bd3f28872051cd075f2f1707ac6f18cd6c3d02c0 100644 (file)
--- a/libio/testsuite/ChangeLog
+++ b/libio/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Sat Jun 27 23:59:35 1998  Carlo Wood  <carlo@runaway.xs4all.nl>
+
+       * lib/libio.exp (test_libio): Reset ld_library_path before appending
+       the same path(s) again.
+
 Sat Sep  6 00:49:31 1997  Brendan Kehoe  <brendan@lisa.cygnus.com>
 
        * lib/libio.exp (test_libio): Lose -L.. before -lio, may as well

diff --git a/libio/testsuite/lib/libio.exp b/libio/testsuite/lib/libio.exp
index 71639e1817382c8460d338b5a6163bc05d570b8a..d9f01b449fc909061d4dbcfb882407967f972cb6 100644 (file)
--- a/libio/testsuite/lib/libio.exp
+++ b/libio/testsuite/lib/libio.exp
@@ -48,13 +48,15 @@ proc test_libio { srcfile compile_args inpfile resultfile exec_args } {
     global LIBIO
     global srcdir subdir objdir
     global TOOL_OPTIONS
-    global wrapper_file wrap_compile_flags;
+    global wrapper_file wrap_compile_flags
+    global ld_library_path
 
     if { $inpfile != "" } {
        set inpfile "$srcdir/../tests/$inpfile"
     }
 
     set args ""
+    set ld_library_path ""
     lappend args "additional_flags=-O3";
     lappend args "additional_flags=-I.. -I$srcdir/.."
     lappend args "additional_flags=$wrap_compile_flags";