X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FGit.pm;h=54ceaf0b8a5d6935f9101dbf52a45c4155eeb90f;hb=a34e62ec1d84eafb67cc63532a383d15a18dcc4d;hp=374a3b4dd71d9849aea7a1c7dee2e8d2e2d8d1f6;hpb=7b7d4bd01b564969eb0c1904a5bd9ee4f3dbba72;p=public-inbox.git

diff --git a/lib/PublicInbox/Git.pm b/lib/PublicInbox/Git.pm
index 374a3b4d..54ceaf0b 100644
--- a/lib/PublicInbox/Git.pm
+++ b/lib/PublicInbox/Git.pm
@@ -71,7 +71,7 @@ sub new {
 
 sub git_path ($$) {
 	my ($self, $path) = @_;
-	$self->{-git_path}->{$path} ||= do {
+	$self->{-git_path}->{$path} //= do {
 		local $/ = "\n";
 		chomp(my $str = $self->qx(qw(rev-parse --git-path), $path));
 
@@ -94,6 +94,13 @@ sub alternates_changed {
 	$self->{alt_st} = $st; # always a true value
 }
 
+sub object_format {
+	$_[0]->{object_format} //= do {
+		my $fmt = $_[0]->qx(qw(config extensions.objectformat));
+		$fmt eq "sha256\n" ? \'sha256' : \undef;
+	}
+}
+
 sub last_check_err {
 	my ($self) = @_;
 	my $fh = $self->{err_c} or return;
@@ -158,7 +165,8 @@ sub my_read ($$$) {
 			return; # unrecoverable error
 		}
 	}
-	\substr($$rbuf, 0, $len, '');
+	my $no_pad = substr($$rbuf, 0, $len, '');
+	\$no_pad;
 }
 
 sub my_readline ($$) {