X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=ucw%2Fperl%2FUCW%2FCGI.pm;h=404d476eab512a02757896c8c6141109b270e8fd;hb=a1fdee4766b969fd0786e3286ce878a2a1142bbd;hp=99ab83a9ffc2eb7705b892e7fb5791feeeb5cb48;hpb=a4fe009d3366b0a3e119713b0ecc7fc0070efdfa;p=libucw.git

diff --git a/ucw/perl/UCW/CGI.pm b/ucw/perl/UCW/CGI.pm
index 99ab83a9..404d476e 100644
--- a/ucw/perl/UCW/CGI.pm
+++ b/ucw/perl/UCW/CGI.pm
@@ -1,6 +1,6 @@
 #	Poor Man's CGI Module for Perl
 #
-#	(c) 2002--2007 Martin Mares <mj@ucw.cz>
+#	(c) 2002--2009 Martin Mares <mj@ucw.cz>
 #	Slightly modified by Tomas Valla <tom@ucw.cz>
 #
 #	This software may be freely distributed and used according to the terms
@@ -268,7 +268,7 @@ sub skip_mp_boundary() {
 	my $b = get_mp_line(0);
 	print STDERR "SEP $b\n" if $debug;
 	$mp_buffer_boundary = index($mp_buffer, $boundary, $mp_buffer_i);
-	if ("\r\n$b" =~ /^$boundary--/) {
+	if (substr("\r\n$b", 0, $boundary_len) eq "$boundary--") {
 		return 0;
 	} else {
 		return 1;