Inhibit rcexpandparam Zsh option when initializing

Protect quarantine mechanism code from 'rcexpandparam' Zsh option when
initializing the module command on this shell.

Fixes #403

Author: xdelaruelle

NEWS.rst

@@ -119,6 +119,8 @@ Modules 4.8.0 (not yet released)
 * Init: fix stderr redirection in fish shell initialization script, now that
   use of the ``^`` character to redirect stderr is disabled by default (fish
   >=3.3).
+* Protect quarantine mechanism code from ``rcexpandparam`` Zsh option when
+  initializing the :command:`module` command on this shell. (fix issue #403)
 
 
 .. _4.7 release notes:

init/zsh.in

@@ -36,7 +36,7 @@
 @quarantinesupport@
 # define module command and surrounding initial environment (default value
 # for MODULESHOME, MODULEPATH, LOADEDMODULES and parse of init config files)
-@quarantinesupport@_mlcode=`${=_mlre:-}@TCLSH@ @libexecdir@/modulecmd.tcl zsh autoinit`
+@quarantinesupport@_mlcode=`${^^=_mlre:-}@TCLSH@ @libexecdir@/modulecmd.tcl zsh autoinit`
 @notquarantinesupport@_mlcode=`@TCLSH@ @libexecdir@/modulecmd.tcl zsh autoinit`
 _mlret=$?
 

modulecmd.tcl.in

@@ -8024,7 +8024,7 @@ alias ml 'module ml \!*' ;}
          # these variables that should have been local are unset at the end
 
          # on zsh, word splitting should be enabled explicitly
-         set wsplit [expr {[getState shell] eq {zsh} ? {=} : {}}]
+         set wsplit [expr {[getState shell] eq {zsh} ? {^^=} : {}}]
          # only redirect module from stderr to stdout when session is
          # attached to a terminal to avoid breaking non-terminal session
          # (scp, sftp, etc)

testsuite/modules.70-maint/120-autoinit.exp

@@ -129,7 +129,7 @@ set func_quar_zsh "\\s*unset _mlre _mlIFS;
 \\s*_mlIFS=\\\$IFS;
 \\s*fi;
 \\s*IFS=' ';
-\\s*for _mlv in \\\${=MODULES_RUN_QUARANTINE:-}; do
+\\s*for _mlv in \\\${\\^\\^=MODULES_RUN_QUARANTINE:-}; do
 $end_quar_sh\n"
 } else {
 set end_quar_sh ""
@@ -185,7 +185,7 @@ set func_modcmd_ksh "\\s*if \\\[ -n \"\\\${_mlre:-}\" \\\]; then
 \\s*eval `$tclshlocre $modulecmd_pathre ksh \"\\$\\@\"`;
 \\s*fi;"
 set func_modcmd_zsh "\\s*if \\\[ -n \"\\\${_mlre:-}\" \\\]; then
-\\s*eval `eval \\\${=_mlre} $tclshlocre $modulecmd_pathre zsh '\"\\$\\@\"'`;
+\\s*eval `eval \\\${\\^\\^=_mlre} $tclshlocre $modulecmd_pathre zsh '\"\\$\\@\"'`;
 \\s*else
 \\s*eval `$tclshlocre $modulecmd_pathre zsh \"\\$\\@\"`;
 \\s*fi;"