File Manager

X7ROOT File Manager

Current Path: /usr/share/Modules/init

📁 ..
📄 bash(4.04 KB)
📄 bash_completion(11.2 KB)
📄 cmake(1.88 KB)
📄 csh(3.78 KB)
📄 fish(1.69 KB)
📄 fish_completion(9.42 KB)
📄 ksh(4.06 KB)
📁 ksh-functions
📄 lisp(3.15 KB)
📄 perl.pm(1.09 KB)
📄 profile-compat.csh(197 B)
📄 profile-compat.sh(309 B)
📄 profile.csh(105 B)
📄 profile.sh(448 B)
📄 python.py(1.5 KB)
📄 r.R(961 B)
📄 ruby.rb(1.35 KB)
📄 sh(3.91 KB)
📄 tcl(1.05 KB)
📄 tcsh(3.79 KB)
📄 tcsh_completion(5.39 KB)
📄 zsh(4.05 KB)
📁 zsh-functions

Editing: perl.pm

# define modules runtine 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 .= "${_mlv}_modquar='$ENV{$_mlv}' ";
        }
        my $_mlrv = "MODULES_RUNENV_$_mlv";
        $_mlre .= "$_mlv='$ENV{$_mlrv}' ";
    }
  }
  if ($_mlre ne "") {
     $_mlre = "env $_mlre";
  }
}

eval `${_mlre}/usr/bin/tclsh /usr/share/Modules/libexec/modulecmd.tcl perl autoinit`;

# clean temp variable used to setup quarantine
undef $_mlre;

# redefine module command if compat version has been activated
if ($ENV{'MODULES_USE_COMPAT_VERSION'} eq '1') {
   $ENV{'MODULES_CMD'} = '/usr/share/Modules/libexec/modulecmd-compat';
   { no warnings 'redefine';
      *module = sub {
         eval `/usr/share/Modules/libexec/modulecmd-compat perl @_`;
         # return value as done on new main version
         return 1;
      };
   }
}

X7ROOT File Manager

Editing: perl.pm

Upload File

Create Folder