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