- push @tries, "$dir.git" unless $dir =~ /\.git$/;
- push @tries, catdir($dir, '.git') unless $dir eq '.git';
+ my @chunks = splitdir $dir;
+ my $last = pop @chunks;
+ push @tries, "$dir.git" unless $last =~ /\.git$/;
+ push @tries, catdir($dir, '.git') unless $last eq '.git';