#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
$line =~ m/^([0-9]+) (.+) ($SHA1RE)\t/;
my $sha1 = $3;
- return $sha1;
+ return $self->repository->get_object($sha1);
}
method get_patch ( Maybe[NonEmptySimpleStr] $parent_hash?,
my $commit = $commitdata{$sha1};
my $line;
- until(($line = shift @blameout) =~ s/^\t//) {
- $commit->{$1} = $2
- if $line =~ /^(\S+) (.*)/;
+
+ until(@blameout == 0 || ($line = shift @blameout) =~ s/^\t//) {
+ $commit->{$1} = $2 if $line =~ /^(\S+) (.*)/;
}
unless(exists $commit->{author_dt}) {
=head1 NAME
-Gitalist::Git::Object::Commit
+Gitalist::Git::Object::Commit - Git::Object::Commit module for Gitalist
=head1 SYNOPSIS