Better avoid the brain-dead encoding " " as "+" when generating URL's.

[libucw.git] / lib / perl / CGI.pm

diff --git a/lib/perl/CGI.pm b/lib/perl/CGI.pm
index 462b0c43242ef41a7b1b3647c8605e249f5c05c1..024a14518a64d6f727a1f2a8d63769cb5fada6bb 100644 (file)
--- a/lib/perl/CGI.pm
+++ b/lib/perl/CGI.pm
@@ -23,8 +23,7 @@ BEGIN {
 
 sub url_escape($) {
        my $x = shift @_;
 
 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;
 }
 
        return $x;
 }