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

[catagits/Gitalist.git] / script / env

diff --git a/script/env b/script/env
index cfa7493..c1d23d7 100755 (executable)
--- 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->();