UCW::CGI: "; boundary=..." is also valid syntax

diff --git a/ucw/perl/UCW/CGI.pm b/ucw/perl/UCW/CGI.pm
index ff06a15ac633e6005f16a2ed50904cb486c9df24..a4c5812d9129d0bbabd607218834c39aa806f55a 100644 (file)
--- a/ucw/perl/UCW/CGI.pm
+++ b/ucw/perl/UCW/CGI.pm
@@ -333,7 +333,7 @@ sub parse_mp_header() {
 sub parse_multipart_form_data() {
        # First of all, find the boundary string
        my $ct = rfc822_prepare($ENV{"CONTENT_TYPE"});
-       if (!(($boundary) = ($ct =~ /^.*;boundary=([^; ]+)/))) {
+       if (!(($boundary) = ($ct =~ /^.*;\s*boundary=([^; ]+)/))) {
                die "Multipart content with no boundary string received";
        }
        $boundary = rfc822_deescape($boundary);