From 56e72de1b164208a7de037c0acba3fd2552176cb Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 9 Nov 1998 04:55:42 +0000 Subject: [PATCH] support depriciated CGI::Base as well as CGI.pm (for now) --- site_perl/CGI.pm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/site_perl/CGI.pm b/site_perl/CGI.pm index 0e6daeebc..f9fbdaebd 100644 --- a/site_perl/CGI.pm +++ b/site_perl/CGI.pm @@ -82,7 +82,12 @@ Sends headers and an HTML error message. sub idiot { my($error)=@_; my($cgi)=FS::UID::cgi; - print $cgi->header, <isa('CGI::Base') ) { + CGI::Base::SendHeaders; + } else { + print $cgi->header; + } + print < Error processing your request @@ -119,11 +124,9 @@ Not OO. Not complete. -Uses CGI-modules instead of CGI.pm - =head1 SEE ALSO -L +L, L =head1 HISTORY @@ -137,7 +140,10 @@ lose the background, eidiot ivan@sisd.com 98-sep-2 pod ivan@sisd.com 98-sep-12 $Log: CGI.pm,v $ -Revision 1.3 1998-11-08 10:50:19 ivan +Revision 1.4 1998-11-09 04:55:42 ivan +support depriciated CGI::Base as well as CGI.pm (for now) + +Revision 1.3 1998/11/08 10:50:19 ivan s/CGI::Base/CGI/; etc. -- 2.11.0