From 658f9c0c0fcce6a6371fbdaf8f74a5ca4265c9a9 Mon Sep 17 00:00:00 2001
From: Emil Williams
Date: Thu, 21 Aug 2025 00:32:48 +0000
Subject: Immortality

---
 gorillanest.pl.fcgi | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

(limited to 'gorillanest.pl.fcgi')

diff --git a/gorillanest.pl.fcgi b/gorillanest.pl.fcgi
index 7dc343f..afba9be 100755
--- a/gorillanest.pl.fcgi
+++ b/gorillanest.pl.fcgi
@@ -9,12 +9,15 @@ use FCGI;
 use lib '.';
 BEGIN { require 'gorillanest.pl.cgi'; }
 
-try {
-    open STDERR, '>', LOG_FILE or die LOG_FILE . ": $!";
-    my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, BARE_REQUEST ? 0 : FCGI::OpenSocket(SOCKET_FILE, SOCKET_MAX_CONNECTIONS));
-    while($request->Accept() >= 0) {
-		master();
+while (1) {
+    try {
+        open STDERR, '>', LOG_FILE or die LOG_FILE . ": $!";
+        my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, BARE_REQUEST ? 0 : FCGI::OpenSocket(SOCKET_FILE, SOCKET_MAX_CONNECTIONS));
+        while($request->Accept() >= 0) {
+            master();
+        }
+    } catch ($error) {
+        info("Crashed: $error");
     }
-} catch ($error) {
-    info("Crashed: $error");
+    exit 1 unless (IMMORTAL);
 }
-- 
cgit v1.2.3