From e7004fed34b31db9e27020cc69f9723d1059cfd3 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 11 Apr 2000 00:06:27 +0000
Subject: [PATCH] CGI.pm detects mod_perl and calls appropriate exit
 (Registry's override doesn't work here)

---
 FS/FS/CGI.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm
index 47c034e13..1e8fca644 100644
--- a/FS/FS/CGI.pm
+++ b/FS/FS/CGI.pm
@@ -123,9 +123,14 @@ Sends headers and an HTML error message, then exits.
 sub eidiot {
   #warn "eidiot depriciated";
   idiot(@_);
-  #exit;
-  use Apache;
-  Apache::exit;
+  if (exists $ENV{MOD_PERL}) {
+    eval {
+      use Apache;
+      Apache::exit();
+    };
+  } else {
+    exit;
+  }
 }
 
 =item popurl LEVEL
-- 
2.11.0