Add getenv sub

This commit is contained in:
Ilia Rostovtsev
2020-12-09 15:17:20 +03:00
parent da3f302b42
commit d44a65411e

View File

@@ -6417,3 +6417,9 @@ while(1) {
}
return $line;
}
sub getenv
{
my ($key) = @_;
return $ENV{ uc($key) } || $ENV{ lc($key) };
}