%::myconfig = ();
%::called_subs = (); # currently used for recursion detection
}
+
+ $SIG{__WARN__} = sub {
+ $::lxdebug->warn(@_);
+ }
}
sub pre_startup_checks {
}
sub require_main_code {
+ $::lxdebug->enter_sub;
my ($script, $suffix) = @_;
eval {
};
$::form->error($EVAL_ERROR) if ($EVAL_ERROR);
}
+ $::lxdebug->leave_sub;
}
sub handle_request {