X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=lib%2Fperl%2FCGI.pm;h=024a14518a64d6f727a1f2a8d63769cb5fada6bb;hb=01b75c67c2e67525c5d16c5bd942aaa8d42d251d;hp=462b0c43242ef41a7b1b3647c8605e249f5c05c1;hpb=9f87c6fe6552ce8b2236a07307d2f825b0e4c439;p=libucw.git

diff --git a/lib/perl/CGI.pm b/lib/perl/CGI.pm
index 462b0c43..024a1451 100644
--- a/lib/perl/CGI.pm
+++ b/lib/perl/CGI.pm
@@ -23,8 +23,7 @@ BEGIN {
 
 sub url_escape($) {
 	my $x = shift @_;
-	$x =~ s/([^-\$_.!*'(),0-9A-Za-z\x80-\xff ])/"%".unpack('H2',$1)/ge;
-	$x =~ s/ /+/g;
+	$x =~ s/([^-\$_.!*'(),0-9A-Za-z\x80-\xff])/"%".unpack('H2',$1)/ge;
 	return $x;
 }