} else {
return unless -d $dir
and -d "$dir/refs"
- and -d "$_/objects"
- and -e "$_/HEAD";
+ and -d "$dir/objects"
+ and -e "$dir/HEAD";
my @chunks = splitdir $dir;
my $last = pop @chunks;
=head1 COPYRIGHT & LICENSE
-Copyright 2008-2009 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.