Fixed perl warning which occurs if $ENV{"CONTENT_TYPE"} is not set.

1 files changed, 1 insertions, 1 deletions

diff --git a/CGI.pl b/CGI.pl
index 8925afd67..6f31f604f 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -978,7 +978,7 @@ if (defined $ENV{"REQUEST_METHOD"}) {
         }
         ProcessFormFields $::buffer;
     } else {
-        if ($ENV{"CONTENT_TYPE"} =~
+        if (exists($ENV{"CONTENT_TYPE"}) && $ENV{"CONTENT_TYPE"} =~
             m@multipart/form-data; boundary=\s*([^; ]+)@) {
             ProcessMultipartFormFields($1);
             $::buffer = "";