diff options
author | Eric Wong <e@80x24.org> | 2015-08-17 08:05:03 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-08-17 08:05:03 +0000 |
commit | 94f13e1f179c4b7c43d75f1154eec178718988c8 (patch) | |
tree | 9c87792ffd47e7866a2a8021d2e6a4dd30bd07d0 /lib/PublicInbox/MID.pm | |
parent | 2bb820dae8164402d9b1596ba3d801c9fd89f92f (diff) | |
download | public-inbox-94f13e1f179c4b7c43d75f1154eec178718988c8.tar.gz |
Valid URLs do not make valid anchor ids.
Diffstat (limited to 'lib/PublicInbox/MID.pm')
-rw-r--r-- | lib/PublicInbox/MID.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/PublicInbox/MID.pm b/lib/PublicInbox/MID.pm index c75aa0e1..2f0c09fb 100644 --- a/lib/PublicInbox/MID.pm +++ b/lib/PublicInbox/MID.pm @@ -19,7 +19,7 @@ sub mid_clean { # this is idempotent sub mid_compressed { - my ($mid) = @_; + my ($mid, $force) = @_; # XXX dirty hack! FIXME! # Some HTTP servers (apache2 2.2.22-13+deb7u5 on my system) @@ -28,7 +28,7 @@ sub mid_compressed { # or what; will need to debug... return sha1_hex($mid) if (index($mid, '%') >= 0); - return $mid if (length($mid) <= MID_MAX); + return $mid if (!$force && length($mid) <= MID_MAX); sha1_hex($mid); } |