From: Dan Brook <broq@cpan.org>
Date: Sun, 31 Oct 2010 18:13:00 +0000 (+0000)
Subject: Fix recursion bug in the lookup sub of the env script.
X-Git-Tag: 0.002007~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FGitalist.git;a=commitdiff_plain;h=247fc27b588ee7b963fc552a93fd74d88857004d

Fix recursion bug in the lookup sub of the env script.
---

diff --git a/script/env b/script/env
index cfa7493..c1d23d7 100755
--- a/script/env
+++ b/script/env
@@ -45,7 +45,7 @@ my $lookup; $lookup = sub {
 
     return $trydir if -r $tryfile;
 
-    return $lookup->( File::Spec->catdir($dir, File::Spec->updir) );
+    return $lookup->( File::Spec->catdir($trydir, File::Spec->updir) );
 };
 
 my $basedir = $lookup->();