🔐 Sid Gifari File Manager Pro
v8.0.5 | 2026-06-14 09:58:23 | PHP 8.1.34
📂
/ (Root)
/
usr
/
share
/
Modules
/
init
📍 /usr/share/Modules/init
🔄 Refresh
✏️
Editing: perl.pm
Read Only
# 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;
💾 Save Changes
❌ Cancel