From: ivan <ivan>
Date: Tue, 11 Apr 2000 00:06:27 +0000 (+0000)
Subject: CGI.pm detects mod_perl and calls appropriate exit (Registry's override doesn't
X-Git-Tag: freeside_1_3_0~145
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=e7004fed34b31db9e27020cc69f9723d1059cfd3;p=freeside.git

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

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