Isolate Things Pt. 3, +- Forgetting Emil

diff --git a/perl/cgi.pl b/perl/cgi.pl
index fc8e4667e231a7c30f25ef4b0163a9a560513a85..14bb1006ddcb0deb53d731d82de5e3671fcb1f9e 100755 (executable)
--- a/perl/cgi.pl
+++ b/perl/cgi.pl
@@ -113,6 +113,7 @@ sub GN::cgi {
 }
 
 sub GN::init() {
+    my $root = GIT_ROOT;
     my %data = (
         found => 0,
         );
@@ -126,7 +127,6 @@ sub GN::init() {
 }
 
 sub GN::main() {
-    my $root = GIT_ROOT;
     my ($data, $routes, $routes_cache) = GN::init();
     GN::cgi($data, $routes, $routes_cache);
 }