FM / init

/usr/share/Modules/init

Name	Size	Mode	Actions
ksh-functions/	-	0755	rm
zsh-functions/	-	0755	rm
bash	4134	0644	edit dl rm
bash_completion	11464	0644	edit dl rm
cmake	1925	0644	edit dl rm
csh	3874	0644	edit dl rm
fish	1733	0644	edit dl rm
fish_completion	9647	0644	edit dl rm
ksh	4162	0644	edit dl rm
lisp	3230	0644	edit dl rm
perl.pm	1118	0644	edit dl rm
profile-compat.csh	197	0644	edit dl rm
profile-compat.sh	309	0644	edit dl rm
profile.csh	105	0644	edit dl rm
profile.sh	448	0644	edit dl rm
python.py	1539	0644	edit dl rm
r.R	961	0644	edit dl rm
ruby.rb	1379	0644	edit dl rm
sh	4004	0644	edit dl rm
tcl	1071	0644	edit dl rm
tcsh	3880	0644	edit dl rm
tcsh_completion	5521	0644	edit dl rm
zsh	4151	0644	edit dl rm

Edit: /usr/share/Modules/init/perl.pm (1118B)

# 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;
      };
   }
}

# 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; }; } } 1;