diff options
author | Eric Wong <normalperson@yhbt.net> | 2014-04-05 10:54:24 +0000 |
---|---|---|
committer | Eric Wong <normalperson@yhbt.net> | 2014-04-05 10:54:24 +0000 |
commit | 18ffc0f236688ff99a7045de49f30a1bcb1f0ef1 (patch) | |
tree | 6621b9d000d3d69244c069c08de51d6fabc653ff | |
parent | 0384decc74943f009af04baf4f7abd40fda08930 (diff) | |
download | public-inbox-18ffc0f236688ff99a7045de49f30a1bcb1f0ef1.tar.gz |
CGI::escape is not a documented subroutine, so the chances of it going away are higher.
-rw-r--r-- | lib/PublicInbox/View.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm index 3d3b6b5e..3f3fea5a 100644 --- a/lib/PublicInbox/View.pm +++ b/lib/PublicInbox/View.pm @@ -3,7 +3,8 @@ package PublicInbox::View; use strict; use warnings; -use CGI qw/escapeHTML escape/; +use URI::Escape qw/uri_escape/; +use CGI qw/escapeHTML/; use Encode qw/decode encode/; use Encode::MIME::Header; @@ -111,7 +112,7 @@ sub trim_message_id { my ($mid) = @_; $mid =~ tr/<>//d; my $html = escapeHTML($mid); - my $href = escapeHTML(escape($mid)); + my $href = escapeHTML(uri_escape($mid)); ($html, $href); } |