envmodules/modules
1
0
Fork 0
mirror of https://github.com/envmodules/modules.git synced 2026-05-30 00:12:31 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Enclose variable value within single quote for shells

Browse Source 
When setting an environment variable on sh and fish shells, enclose the
value within single quote rather escaping any special characters.

With this change is its possible to have newline character included in
environment variable value.

Exception is made for csh shells where unsupported newline character in
variable value is chopped.

Other language supported where already enclosing variable values in
single quotes (python, ruby, etc).

Fixes #557

Signed-off-by: Xavier Delaruelle <xavier.delaruelle@cea.fr>
This commit is contained in:
Xavier Delaruelle
2025-04-11 07:18:08 +02:00
parent 1d1a1f03a4
commit 39761df5e5
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tcl/envmngt.tcl.in
View File

@@ -232,7 +232,11 @@ proc renderSettings {} {
new {
switch -- [getState shelltype] {
csh {
set val [charEscaped $::env($var)]
# cannot handle newline character in env var value with csh
# shells: chop newline character in value (as done on
# Modules v3 for all shells)
set val [string map {\n {}} $::env($var)]
set val [charEscaped $val]
# csh barfs on long env vars
if {[getState shell] eq {csh} && [string length $val] >\
[getConf csh_limit]} {
@@ -251,18 +255,18 @@ proc renderSettings {} {
lappend g_shcode_out "setenv $var $val;"
}
sh {
lappend g_shcode_out "$var=[charEscaped $::env($var)];\
export $var;"
set val [string map {' '\\''} $::env($var)]
lappend g_shcode_out "$var='$val'; export $var;"
}
fish {
set val [charEscaped $::env($var)]
set val [charEscaped $::env($var) ']
# fish shell has special treatment for PATH variable
# so its value should be provided as a list separated
# by spaces not by semi-colons
if {$var eq {PATH}} {
regsub -all : $val { } val
set val [join [split $val :] {' '}]
}
lappend g_shcode_out "set -xg $var $val;"
lappend g_shcode_out "set -xg $var '$val';"
}
tcl {
set val $::env($var)