I Really Like A Particular Kind Of Consistency

diff --git a/perl/fcgi.pl b/perl/fcgi.pl
index 823cd865231fb74042021d7f645fc2d09194f173..29e2fc1a902c1fdfb1474ad22bda4d5b02478005 100755 (executable)
--- a/perl/fcgi.pl
+++ b/perl/fcgi.pl
@@ -9,15 +9,19 @@ use FCGI;
 use lib qw(perl);
 BEGIN { require 'cgi.pl'; }
 
 use lib qw(perl);
 BEGIN { require 'cgi.pl'; }
 

-while (1) {
-    try {
-        my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, BARE_REQUEST ? 0 : FCGI::OpenSocket(SOCKET_FILE, SOCKET_MAX_CONNECTIONS));
-        my ($data, $routes, $routes_cache) = GN::init();
-        while($request->Accept() >= 0) {
-            GN::cgi($data, $routes, $routes_cache);
+sub GN::fcgi() {
+        while (1) {
+            try {
+                my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, BARE_REQUEST ? 0 : FCGI::OpenSocket(SOCKET_FILE, SOCKET_MAX_CONNECTIONS));
+                my ($data, $routes, $routes_cache) = GN::init();
+                while($request->Accept() >= 0) {
+                    GN::cgi($data, $routes, $routes_cache);
+                }
+            } catch ($error) {
+                info("Crashed: $error");
+            }
+            exit 1 unless (IMMORTAL);

         }
         }

-    } catch ($error) {
-        info("Crashed: $error");
-    }
-    exit 1 unless (IMMORTAL);

 }
 }

+
+GN::fcgi() if !caller;