X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDispatcher.pm;h=8bd296804c3ea087e6d47728034c0e9593448fd2;hb=85ffde7a577589762b70de99ca08b6f25e9e9d1b;hp=2c0539bb899e2015287cccba63692de1f3063ea4;hpb=6c7e41458d2027f72901d16417a37648942f7445;p=kivitendo-erp.git diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm index 2c0539bb8..8bd296804 100644 --- a/SL/Dispatcher.pm +++ b/SL/Dispatcher.pm @@ -130,13 +130,9 @@ sub handle_request { my $interface = lc(shift || 'cgi'); my ($script_name, $action); - if ($interface =~ m/^(?:fastcgi|fcgid|fcgi)$/) { - $script_name = $ENV{SCRIPT_NAME}; - unrequire_bin_mozilla(); + $script_name = $ENV{SCRIPT_NAME}; - } else { - $script_name = $0; - } + unrequire_bin_mozilla($interface); $::cgi = CGI->new(''); $::locale = Locale->new($::language); @@ -205,6 +201,8 @@ sub handle_request { } sub unrequire_bin_mozilla { + return unless $_[0] =~ m/^(?:fastcgi|fcgid|fcgi)$/; + for (keys %INC) { next unless m#^bin/mozilla/#; next if /\bcommon.pl$/;