my($error)=@_;
my($cgi)=FS::UID::cgi;
if ( $cgi->isa('CGI::Base') ) {
+ no strict 'subs';
CGI::Base::SendHeaders;
} else {
print $cgi->header;
pod ivan@sisd.com 98-sep-12
$Log: CGI.pm,v $
-Revision 1.4 1998-11-09 04:55:42 ivan
+Revision 1.5 1998-11-09 05:23:55 ivan
+*** empty log message ***
+
+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