X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FCGI.pm;h=35d2e2839eeb1e0fce06c064bedf9833746190d8;hb=0bdec843e4a9bb7f947c9ba980a40f7bf37020fb;hp=d1c56a2545dbcb4b48fa0172be91996dba213e3c;hpb=5bb9eff0716710611f50071bec6167b4514edb48;p=freeside.git

diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm
index d1c56a254..35d2e2839 100644
--- a/FS/FS/CGI.pm
+++ b/FS/FS/CGI.pm
@@ -10,7 +10,7 @@ use FS::UID;
 
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(header menubar idiot eidiot popurl table itable ntable
-                small_custview);
+                small_custview myexit);
 
 =head1 NAME
 
@@ -132,6 +132,18 @@ Sends an HTML error message, then exits.
 sub eidiot {
   warn "eidiot depriciated";
   idiot(@_);
+  &myexit();
+}
+
+=item myexit
+
+You probably shouldn't use this; but if you must:
+
+If running under mod_perl, calles Apache::exit, otherwise, calls exit.
+
+=cut
+
+sub myexit {
   if (exists $ENV{MOD_PERL}) {
     $main::Response->End()
       if defined $main::Response