diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/PublicInbox/ContentHash.pm | 6 | ||||
| -rw-r--r-- | lib/PublicInbox/LeiViewText.pm | 1 |
2 files changed, 3 insertions, 4 deletions
diff --git a/lib/PublicInbox/ContentHash.pm b/lib/PublicInbox/ContentHash.pm index 112b1ea6..cc4a54c9 100644 --- a/lib/PublicInbox/ContentHash.pm +++ b/lib/PublicInbox/ContentHash.pm @@ -97,9 +97,9 @@ sub content_hash ($) { sub git_sha ($$) { my ($n, $eml) = @_; my $dig = Digest::SHA->new($n); - my $buf = $eml->as_string; - $dig->add('blob '.length($buf)."\0"); - $dig->add($buf); + my $bref = ref($eml) eq 'SCALAR' ? $eml : \($eml->as_string); + $dig->add('blob '.length($$bref)."\0"); + $dig->add($$bref); $dig; } diff --git a/lib/PublicInbox/LeiViewText.pm b/lib/PublicInbox/LeiViewText.pm index d0f8b7f4..340a6648 100644 --- a/lib/PublicInbox/LeiViewText.pm +++ b/lib/PublicInbox/LeiViewText.pm @@ -7,7 +7,6 @@ package PublicInbox::LeiViewText; use strict; use v5.10.1; use PublicInbox::MsgIter qw(msg_part_text); -use PublicInbox::ContentHash qw(git_sha); use PublicInbox::MID qw(references); use PublicInbox::View; use PublicInbox::Hval; |