=cut
sub cat_file {
- my ($self, $object) = @_;
+ my ($self, $object, $project) = @_;
- my $type = $self->get_object_type($object, $project);
+ my $type = $self->get_object_type($object, $self->project);
die "object `$object' is not a file\n"
if (!defined $type || $type ne 'blob');