diff options
| author | brian m. carlson <sandals@crustytoothpaste.net> | 2020-06-22 18:04:13 (GMT) |
|---|---|---|
| committer | Junio C Hamano <gitster@pobox.com> | 2020-06-22 18:21:07 (GMT) |
| commit | ff508e227c881acf6016c88ddde8158664ee18e3 (patch) | |
| tree | c0afdbee88d81a64bd7a2b6320754b5d5e0108fa /perl/Git | |
| parent | 9ab33150a0d14089d0496dd8354d4a969e849571 (diff) | |
| download | git-ff508e227c881acf6016c88ddde8158664ee18e3.zip git-ff508e227c881acf6016c88ddde8158664ee18e3.tar.gz git-ff508e227c881acf6016c88ddde8158664ee18e3.tar.bz2 | |
perl: make Git::IndexInfo work with SHA-256
Most of the Git modules, git-svn excepted, don't know anything about the
hash algorithm and mostly work. However, when we're printing an
all-zero object ID in Git::IndexInfo, we need to know the hash length.
Since we don't want to change the API to have that information passed
in, let's query the config to find the hash algorithm and compute the
right value.
Signed-off-by: brian m. carlson <sandals@crustytoothpaste.net>
Acked-by: Eric Wong <e@80x24.org>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
Diffstat (limited to 'perl/Git')
| -rw-r--r-- | perl/Git/IndexInfo.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl/Git/IndexInfo.pm b/perl/Git/IndexInfo.pm index a43108c..2a7b490 100644 --- a/perl/Git/IndexInfo.pm +++ b/perl/Git/IndexInfo.pm @@ -5,13 +5,15 @@ use Git qw/command_input_pipe command_close_pipe/; sub new { my ($class) = @_; + my $hash_algo = Git::config('extensions.objectformat') || 'sha1'; my ($gui, $ctx) = command_input_pipe(qw/update-index -z --index-info/); - bless { gui => $gui, ctx => $ctx, nr => 0}, $class; + bless { gui => $gui, ctx => $ctx, nr => 0, hash_algo => $hash_algo}, $class; } sub remove { my ($self, $path) = @_; - if (print { $self->{gui} } '0 ', 0 x 40, "\t", $path, "\0") { + my $length = $self->{hash_algo} eq 'sha256' ? 64 : 40; + if (print { $self->{gui} } '0 ', 0 x $length, "\t", $path, "\0") { return ++$self->{nr}; } undef; |