$dir = cwd unless defined $dir;
my ($repo, $bare, $name, $work);
if ($args{fake}) {
- $repo = $dir;
+ $work = $dir;
} else {
my @tries = ($dir);
push @tries, "$dir.git" unless $dir =~ /\.git$/;
sub chdir {
my $self = shift;
- my $repo = $self->repo;
- chdir $repo or do {
- warn "Couldn't chdir into $repo: $!";
+ my $dir = $self->work;
+ chdir $dir or do {
+ warn "Couldn't chdir into $dir: $!";
return;
};
return 1;