Help for this page

Select Code to Download

Select or download this

if($^O eq 'MSWin32') {
  require Win32::API;
  Win32::API->Import('msvcrt', 'int __cdecl _putenv (char* envstring)'
+);
...
  my $envVarDef="$envVar=".($ENV{$envVar}//'');
  die "Unable to export environment variable definition \"$envVarDef\"
+" unless(_putenv($envVarDef) == 0);
}