From 869b69b4e923b2c859ca1d687ab0456e9aa66bd5 Mon Sep 17 00:00:00 2001 From: Max Ostapenko Date: Wed, 3 Sep 2014 10:16:30 +0300 Subject: [PATCH] gcc-dg.exp (set-target-env-var): Change env to ::env. gcc/testsuite/ChangeLog: 2014-09-03 Max Ostapenko * lib/gcc-dg.exp (set-target-env-var): Change env to ::env. From-SVN: r214846 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/lib/gcc-dg.exp | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 51a8ca324b3..27d3ae70fac 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2014-09-03 Max Ostapenko + + * lib/gcc-dg.exp (set-target-env-var): Change env to ::env. + 2014-09-03 Tobias Burnus PR fortran/61881 diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index dfdb25710a8..a0d1e7ddde9 100644 --- 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] } -- 2.30.2