diff options
author | Eric Wong <e@80x24.org> | 2015-08-16 08:53:41 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-08-16 08:53:41 +0000 |
commit | 9041b136ba7a106ed5ff33da4b6ae28c2a0f4333 (patch) | |
tree | 4a0e87909bdbffe1e6a8b84c3e2273797e0db0fd /lib/PublicInbox/WWW.pm | |
parent | 5daa5a6a3da3e944c7757b8f3aebedef602f21a4 (diff) | |
download | public-inbox-9041b136ba7a106ed5ff33da4b6ae28c2a0f4333.tar.gz |
More to come later.
Diffstat (limited to 'lib/PublicInbox/WWW.pm')
-rw-r--r-- | lib/PublicInbox/WWW.pm | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm index 7fe9b85b..bbd438a2 100644 --- a/lib/PublicInbox/WWW.pm +++ b/lib/PublicInbox/WWW.pm @@ -141,19 +141,10 @@ sub get_index { # just returns a string ref for the blob in the current ctx sub mid2blob { my ($ctx) = @_; - my $hex = $ctx->{mid}; - my ($x2, $x38) = ($hex =~ /\A([a-f0-9]{2})([a-f0-9]{38})\z/); - - unless (defined $x38) { - # compatibility with old links - require Digest::SHA; - $hex = Digest::SHA::sha1_hex($hex); - ($x2, $x38) = ($hex =~ /\A([a-f0-9]{2})([a-f0-9]{38})\z/); - defined $x38 or die "BUG: not a SHA-1 hex: $hex"; - } - + require PublicInbox::MID; + my $path = PublicInbox::MID::mid2path($ctx->{mid}); my @cmd = ('git', "--git-dir=$ctx->{git_dir}", - qw(cat-file blob), "HEAD:$x2/$x38"); + qw(cat-file blob), "HEAD:$path"); my $cmd = join(' ', @cmd); my $pid = open my $fh, '-|'; defined $pid or die "fork failed: $!\n"; |