Geforce File Manager

NAME	SIZE	ACTIONS
📁 ksh-functions		[ DEL ]
📁 zsh-functions		[ DEL ]
📄 bash	4,134 B	[ EDIT ] \| [ DEL ]
📄 bash_completion	11,464 B	[ EDIT ] \| [ DEL ]
📄 cmake	1,925 B	[ EDIT ] \| [ DEL ]
📄 csh	3,874 B	[ EDIT ] \| [ DEL ]
📄 fish	1,733 B	[ EDIT ] \| [ DEL ]
📄 fish_completion	9,647 B	[ EDIT ] \| [ DEL ]
📄 ksh	4,162 B	[ EDIT ] \| [ DEL ]
📄 lisp	3,230 B	[ EDIT ] \| [ DEL ]
📄 perl.pm	1,118 B	[ EDIT ] \| [ DEL ]
📄 profile-compat.csh	197 B	[ EDIT ] \| [ DEL ]
📄 profile-compat.sh	309 B	[ EDIT ] \| [ DEL ]
📄 profile.csh	105 B	[ EDIT ] \| [ DEL ]
📄 profile.sh	448 B	[ EDIT ] \| [ DEL ]
📄 python.py	1,539 B	[ EDIT ] \| [ DEL ]
📄 r.R	961 B	[ EDIT ] \| [ DEL ]
📄 ruby.rb	1,379 B	[ EDIT ] \| [ DEL ]
📄 sh	4,004 B	[ EDIT ] \| [ DEL ]
📄 tcl	1,071 B	[ EDIT ] \| [ DEL ]
📄 tcsh	3,880 B	[ EDIT ] \| [ DEL ]
📄 tcsh_completion	5,521 B	[ EDIT ] \| [ DEL ]
📄 zsh	4,151 B	[ EDIT ] \| [ DEL ]

[ CLOSE ]

EDIT: 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;
      };
   }
}