use Apache inside an eval BLOCK was mucking things up for the non-mod_perl folks

diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm
index 198477c..6078ad9 100644 (file)
--- a/FS/FS/CGI.pm
+++ b/FS/FS/CGI.pm
@@ -121,13 +121,11 @@ Sends headers and an HTML error message, then exits.
 =cut
 
 sub eidiot {
-  #warn "eidiot depriciated";
+  warn "eidiot depriciated";
   idiot(@_);
   if (exists $ENV{MOD_PERL}) {
-    eval {
-      use Apache;
-      Apache::exit();
-    };
+    require Apache;
+    Apache::exit();
   } else {
     exit;
   }