From a0cc907f12d2e516ab8806f96ce8b3c142fe008f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 15 Apr 1999 15:22:12 +0000
Subject: [PATCH] make &idiot() work, yuck.

---
 site_perl/CGI.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/site_perl/CGI.pm b/site_perl/CGI.pm
index 723d7f4ec..3ce53de9b 100644
--- a/site_perl/CGI.pm
+++ b/site_perl/CGI.pm
@@ -88,7 +88,7 @@ Sends headers and an HTML error message.
 sub idiot {
   #warn "idiot depriciated";
   my($error)=@_;
-  my($cgi)=FS::UID::cgi;
+  my $cgi = &FS::UID::cgi();
   if ( $cgi->isa('CGI::Base') ) {
     no strict 'subs';
     &CGI::Base::SendHeaders;
@@ -216,7 +216,10 @@ lose the background, eidiot ivan@sisd.com 98-sep-2
 pod ivan@sisd.com 98-sep-12
 
 $Log: CGI.pm,v $
-Revision 1.17  1999-02-07 09:59:43  ivan
+Revision 1.18  1999-04-15 15:22:12  ivan
+make &idiot() work, yuck.
+
+Revision 1.17  1999/02/07 09:59:43  ivan
 more mod_perl fixes, and bugfixes Peter Wemm sent via email
 
 Revision 1.16  1999/01/25 12:26:05  ivan
-- 
2.11.0