X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Flib%2FRT.pm;h=4372a564d4131ed921233ea241fdfd85f36365db;hb=a72a10f754f7465121d6137bb3dcee0a21ea6443;hp=063f7f7199db1e1d2a1e64324ec1ce58693fefd5;hpb=85e677b86fc37c54e6de2b06340351a28f5a5916;p=freeside.git diff --git a/rt/lib/RT.pm b/rt/lib/RT.pm index 063f7f719..4372a564d 100644 --- a/rt/lib/RT.pm +++ b/rt/lib/RT.pm @@ -138,6 +138,8 @@ up logging|/InitLogging>, and L. sub Init { + my @arg = @_; + CheckPerlRequirements(); InitPluginPaths(); @@ -146,7 +148,7 @@ sub Init { ConnectToDatabase(); InitSystemObjects(); InitClasses(); - InitLogging(); + InitLogging(@arg); InitPlugins(); RT::I18N->Init; RT->Config->PostLoadCheck; @@ -174,6 +176,8 @@ Create the Logger object and set up signal handlers. sub InitLogging { + my %arg = @_; + # We have to set the record separator ($, man perlvar) # or Log::Dispatch starts getting # really pissy, as some other module we use unsets it. @@ -309,11 +313,14 @@ sub InitLogging { )); } } - InitSignalHandlers(); + InitSignalHandlers(%arg); } sub InitSignalHandlers { + my %arg = @_; + return if $arg{'NoSignalHandlers'}; + # Signal handlers ## This is the default handling of warnings and die'ings in the code ## (including other used modules - maybe except for errors catched by