--- trunk/lib/Sack/Server/HTTP.pm 2009/11/26 22:36:27 250 +++ trunk/lib/Sack/Server/HTTP.pm 2009/11/27 13:48:01 251 @@ -6,6 +6,7 @@ my $debug = 1; use Data::Dump qw(dump); +use URI::Escape; sub static {} @@ -22,6 +23,7 @@ if ( $method =~ s{\?(.+)}{} ) { foreach my $p ( split(/[&;]/, $1) ) { my ($n,$v) = split(/=/, $p, 2); + $v = uri_unescape($v); if ( defined $param->{$n} ) { if ( ref $param->{$n} eq 'ARRAY' ) { push @{ $param->{$n} }, $v;