Curt
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
######################################################
# Lets play nicely with mod_perl
# Even though we use strict, $iB is a global package
# and as mod_perl compiles once and runs, all the
# values are carried over. We don't want that.
$iB::COOKIES_OUT = [];
$iB::SESSION = undef;
%iB::IN = ();
@iB::TEMP_COOKIE = ();
$iB::COOKIES = {};
$iB::MEMBER = undef;
$iB::ACTIVE = undef;
# Calling exit() is a 'very bad thing' for mod_perl, so
# lets use Apache->exit() instead, it wont terminate the
# process. We use this 'hack' for efficiency. mod_cgi
# doesn't care, but mod_perl will only have to do this
# once.
use constant IS_MODPERL => $ENV{MOD_PERL};
use subs qw(exit);
*iB::exit = IS_MODPERL ? \&Apache::exit : sub { CORE::exit };
# End Mod Perl Cleanup
######################################################
Наверное ошибку вызывает вот эта строчка!!!
ПОМОГИТЕ!!!
Добавлено
Хостюсь на HUT.RU |
(