From f7caf50929669fdf317f1ab51767ac93a1f743fc Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 30 Jul 2001 10:43:58 +0000 Subject: [PATCH] Apache::ASP eidiot fix --- FS/FS/CGI.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index 6078ad96b..98f26f383 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -43,7 +43,10 @@ Returns an HTML header. =cut sub header { - my($title,$menubar)=@_; + my($title,$menubar,$etc)=@_; + #use Carp; + #confess $etc if defined $etc; + $etc = '' unless defined $etc; my $x = < @@ -52,7 +55,7 @@ sub header { $title - + $title @@ -124,6 +127,9 @@ sub eidiot { warn "eidiot depriciated"; idiot(@_); if (exists $ENV{MOD_PERL}) { + $main::Response->End() + if defined $main::Response + && $main::Response->isa('Apache::ASP::Response'); require Apache; Apache::exit(); } else { -- 2.11.0