From: Nathan Sidwell <nathan@acm.org>
Date: Tue, 25 Apr 2017 22:14:55 +0000 (+0000)
Subject: * g++.dg/dg.exp (find-cxx-tests): Remove TCL 8.5-ism.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9f4df8f1a4ae435f2e443978ebd3d58519018a70;p=gcc.git

* 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 f6dfd5e16c5..bdaccdca6b2 100644
--- 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 940213d4eff..8222e38b2c6 100644
--- 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