* g++.dg/dg.exp (find-cxx-tests): Remove TCL 8.5-ism.

From-SVN: r247269

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f6dfd5e16c5c37da485b827b6dc0e0e6d2c79817..bdaccdca6b206ff69d70ac5168550de5de84426d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2017-04-25  Nathan Sidwell  <nathan@acm.org>
+
+       * g++.dg/dg.exp (find-cxx-tests): Remove TCL 8.5-ism.
+
 2017-04-25  Uros Bizjak  <ubizjak@gmail.com>
 
        PR target/70799

diff --git a/gcc/testsuite/g++.dg/dg.exp b/gcc/testsuite/g++.dg/dg.exp
index 940213d4eff0424a08c02db5d644903635b954a5..8222e38b2c6aa672d0cd6b7fd083f790cdbf03c7 100644 (file)
--- a/gcc/testsuite/g++.dg/dg.exp
+++ b/gcc/testsuite/g++.dg/dg.exp
@@ -35,7 +35,7 @@ proc find-cxx-tests { dir suffix } {
     set tests [lsort [glob -nocomplain -directory $dir "*.$suffix" ]]
     foreach subdir [lsort [glob -nocomplain -type d -directory $dir *]] {
        if { [glob -nocomplain -directory $subdir *.exp] eq "" } {
-           lappend tests {*}[find-cxx-tests $subdir $suffix]
+           eval lappend tests [find-cxx-tests $subdir $suffix]
        }
     }
     return $tests