CGI.pm detects mod_perl and calls appropriate exit (Registry's override doesn't

work here)

1 files changed, 8 insertions, 3 deletions

diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm
index 47c034e..1e8fca6 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