From d44a65411eb65e369f4afe7c4e54bb90de9f8762 Mon Sep 17 00:00:00 2001 From: Ilia Rostovtsev Date: Wed, 9 Dec 2020 15:17:20 +0300 Subject: [PATCH] Add `getenv` sub --- miniserv.pl | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/miniserv.pl b/miniserv.pl index ff0980953..85531bf88 100755 --- a/miniserv.pl +++ b/miniserv.pl @@ -6417,3 +6417,9 @@ while(1) { } return $line; } + +sub getenv +{ + my ($key) = @_; + return $ENV{ uc($key) } || $ENV{ lc($key) }; +} \ No newline at end of file