From 06a563e3a33a8687f1ce75a7545dd9d88ea30f69 Mon Sep 17 00:00:00 2001 From: Martin Mares Date: Mon, 15 Aug 2011 13:27:50 +0200 Subject: [PATCH] UCW::CGI: "; boundary=..." is also valid syntax --- ucw/perl/UCW/CGI.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ucw/perl/UCW/CGI.pm b/ucw/perl/UCW/CGI.pm index ff06a15a..a4c5812d 100644 --- 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); -- 2.39.5