The get_hash method takes a "revision" (as described in git-rev-parse
--help) and returns the SHA1 hash of the commit, tree, file, or tag
object it refers to.
Signed-off-by: Lea Wiemann <LeWiemann@xxxxxxxxx>
---
Changes since v3: Renamed parse_rev to get_hash, improved
documentation to point out that the parameter can refer to file, tree
and tag object as well, and added example in "Synopsis" section.
perl/Git.pm | 45 +++++++++++++++++++++++++++++++++++++++++++++
1 files changed, 45 insertions(+), 0 deletions(-)
diff --git a/perl/Git.pm b/perl/Git.pm
index 97e61ef..f2e9e29 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -43,6 +43,9 @@ $VERSION = '0.01';
my $tempfile = tempfile();
my $size = $repo->cat_blob($sha1, $tempfile);
+ my $head_commit_sha1 = $repo->get_hash('HEAD'); # see git-rev-parse --help
+ my $file_blob_sha1 = $repo->get_hash('HEAD:path/file.txt');
+
=cut
@@ -716,6 +719,48 @@ sub ident_person {
return "$ident[0] <$ident[1]>";
}
+=item get_hash ( REVISION )
+
+Look up the object referred to by C<REVISION> and return its SHA1
+hash, or return undef if the lookup failed. When passed a SHA1 hash,
+always return it even if it doesn't exist in the repository.
+
+Note that C<REVISION> can refer to a commit, file, tree, or tag
+object! See git rev-parse --help, section "Specifying Revisions", for
+valid formats of the C<REVISION> parameter.
+
+=cut
+
+sub get_hash {
+ # We could allow for a list of revisions here.
+ my ($self, $rev_name) = @_;
+
+ my $hash;
+ try {
+ # The --quiet --verify options cause git-rev-parse to fail
+ # with exit status 1 (instead of 128) if the given revision
+ # name is not found, which enables us to distinguish not-found
+ # from serious errors. The --default option works around
+ # git-rev-parse's lack of support for getopt style "--"
+ # separators (it would fail for tags named "--foo" without
+ # it).
+ $hash = $self->command_oneline("rev-parse", "--verify", "--quiet",
+ "--default", $rev_name);
+ } catch Git::Error::Command with {
+ my $E = shift;
+ if ($E->value() == 1) {
+ # Revision name not found.
+ $hash = undef;
+ } else {
+ throw $E;
+ }
+ };
+ # Guard against unexpected output.
+ throw Error::Simple(
+ "get_hash: unexpected output for \"$rev_name\": $hash")
+ if defined $hash and $hash !~ /^([0-9a-fA-F]{40})$/;
+ return $hash;
+}
=item hash_object ( TYPE, FILENAME )
--
1.5.5.GIT
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
