✏️ 编辑：perl.pm
路径：
/usr/share/Modules/init/perl.pm
大小：764 B · 修改：2025-09-21 09:06:14 · 权限：0644 · 只读（保存会失败）
← 返回目录
👁 查看
⬇ 下载
# define modules runtime quarantine configuration $ENV{'MODULES_RUN_QUARANTINE'} = 'LD_LIBRARY_PATH LD_PRELOAD'; # setup quarantine if defined my $_mlre = ''; if (defined $ENV{'MODULES_RUN_QUARANTINE'}) { foreach my $_mlv (split(' ', $ENV{'MODULES_RUN_QUARANTINE'})) { if ($_mlv =~ /^[A-Za-z_][A-Za-z0-9_]*$/) { if (defined $ENV{$_mlv}) { $_mlre .= "__MODULES_QUAR_${_mlv}='$ENV{$_mlv}' "; } my $_mlrv = "MODULES_RUNENV_$_mlv"; $_mlre .= "$_mlv='$ENV{$_mlrv}' "; } } if ($_mlre ne "") { $_mlre = "env ${_mlre}__MODULES_QUARANTINE_SET=1 "; } } eval `${_mlre}/usr/bin/tclsh '/usr/share/Modules/libexec/modulecmd.tcl' perl autoinit`; # clean temp variable used to setup quarantine undef $_mlre; 1;
💾 保存
取消
保存为 UTF-8，换行统一为 LF