Fix checking objects and HEAD

[perl/modules/rgit.git] / lib / App / Rgit / Repository.pm

diff --git a/lib/App/Rgit/Repository.pm b/lib/App/Rgit/Repository.pm
index f7b03d7fd799964ffecc042a330c52ec5e9b32df..15cf6274b74a1641b610ac5bfd123897b81302fd 100644 (file)
--- 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;