From: ivan Date: Thu, 15 Apr 1999 15:22:12 +0000 (+0000) Subject: make &idiot() work, yuck. X-Git-Tag: freeside_1_2_2~67 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a0cc907f12d2e516ab8806f96ce8b3c142fe008f;hp=e021cf31d93dbe68342e64ee48444b273bee62f1 make &idiot() work, yuck. --- 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