| Subject: | $uri->query_param($k,$v) escapes $v different with URI::Escape::uri_escape() |
Would you mind have a check?
--
http://islue.blogspot.com/
| Subject: | escape.t |
use URI;
use URI::QueryParam;
use URI::Escape;
my $unescape = '*!';
my $uri = new URI('http://localhost');
$uri->query_param('foo' => $unescape );
print $uri->as_string, "\n";
print 'http://localhost?foo=', URI::Escape::uri_escape( $unescape ), "\n";
| Subject: | escape.diff |
50c50
< $val =~ s/([;\/?:@&=+,\$\[\]%])/ URI::Escape::escape_char($1)/eg;
---
> $val = URI::Escape::uri_escape( $val );