diff options
author | Eric Wong <e@80x24.org> | 2021-04-26 11:44:25 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-04-26 21:05:04 -0400 |
commit | fb7702f0888e9bdad98f33c09c4048625322a688 (patch) | |
tree | 41b1fd6845ae1cf4976863b5be0ce2a3aee49712 /lib/PublicInbox/URIimap.pm | |
parent | 319fa38ae121b86b375f3f67ec6f5f45e4608b12 (diff) | |
download | public-inbox-fb7702f0888e9bdad98f33c09c4048625322a688.tar.gz |
And the UID one, too, as well. This simplifies future comparison and matching code once case is no longer taken into account.
Diffstat (limited to 'lib/PublicInbox/URIimap.pm')
-rw-r--r-- | lib/PublicInbox/URIimap.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/PublicInbox/URIimap.pm b/lib/PublicInbox/URIimap.pm index dc193468..df9f5fd9 100644 --- a/lib/PublicInbox/URIimap.pm +++ b/lib/PublicInbox/URIimap.pm @@ -30,6 +30,9 @@ sub canonical { my ($scheme, $auth, $path, $query, $_frag) = uri_split($$self); $path =~ s!\A/+!/!; # excessive leading slash + # upper-case uidvalidity= and uid= parameter names + $path =~ s/;([^=]+)=([^;]*)/;\U$1\E=$2/g; + # lowercase the host portion $auth =~ s#\A(.*@)?(.*?)(?::([0-9]+))?\z# my $ret = ($1//'').lc($2); |