]> git.vpit.fr Git - perl/modules/rgit.git/commitdiff
Fix checking objects and HEAD
authorVincent Pit <vince@profvince.com>
Wed, 24 Feb 2010 10:19:18 +0000 (11:19 +0100)
committerVincent Pit <vince@profvince.com>
Wed, 24 Feb 2010 10:19:18 +0000 (11:19 +0100)
lib/App/Rgit/Repository.pm

index f7b03d7fd799964ffecc042a330c52ec5e9b32df..15cf6274b74a1641b610ac5bfd123897b81302fd 100644 (file)
@@ -58,8 +58,8 @@ sub new {
  } else {
   return unless -d $dir
             and -d "$dir/refs"
  } 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;
 
   my @chunks = splitdir $dir;
   my $last   = pop @chunks;