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

diff --git a/CGI.pl b/CGI.pl
index 8925afd670ce2d40ead9b2069ae6d7f1f9be9c23..6f31f604fcbde9f04f3f1d8b42e9000ac0e42ee1 100644 (file)
--- 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 = "";