gcc-dg.exp (set-target-env-var): Change env to ::env.

gcc/testsuite/ChangeLog:

2014-09-03  Max Ostapenko  <m.ostapenko@partner.samsung.com>

	* lib/gcc-dg.exp (set-target-env-var): Change env to ::env.

From-SVN: r214846

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 51a8ca324b3ccd1507b71d5bb5e3ff767e8f65a6..27d3ae70face44e42b98d21847e66bf70fc8634e 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2014-09-03  Max Ostapenko  <m.ostapenko@partner.samsung.com>
+
+       * lib/gcc-dg.exp (set-target-env-var): Change env to ::env.
+
 2014-09-03  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/61881

diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index dfdb25710a82002e00fc7c74e2e79e5ca54dee5a..a0d1e7ddde9e8211541eb6b3635c8c48b20c9193 100644 (file)
--- a/gcc/testsuite/lib/gcc-dg.exp
+++ b/gcc/testsuite/lib/gcc-dg.exp
@@ -300,8 +300,8 @@ proc set-target-env-var { } {
     foreach env_var $set_target_env_var {
        set var [lindex $env_var 0]
        set value [lindex $env_var 1]
-       if [info exists env($var)] {
-           lappend saved_target_env_var [list $var 1 $env($var)]
+       if [info exists ::env($var)] {
+           lappend saved_target_env_var [list $var 1 $::env($var)]
        } else {
            lappend saved_target_env_var [list $var 0]
        }