summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--FS/FS/CGI.pm11
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