From: Vincent Pit <vince@profvince.com>
Date: Wed, 24 Feb 2010 10:19:18 +0000 (+0100)
Subject: Fix checking objects and HEAD
X-Git-Tag: v0.07~21
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=93a8a5d44eba331fd4359c2763834290c0e9a70a;p=perl%2Fmodules%2Frgit.git

Fix checking objects and HEAD
---

diff --git a/lib/App/Rgit/Repository.pm b/lib/App/Rgit/Repository.pm
index f7b03d7..15cf627 100644
--- a/lib/App/Rgit/Repository.pm
+++ b/lib/App/Rgit/Repository.pm
@@ -58,8 +58,8 @@ sub new {
  } 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;