projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
EK-Preise in der makemodel hinterlegen mit Datum der letzten Ă„nderung.
[kivitendo-erp.git]
/
SL
/
Dispatcher.pm
diff --git
a/SL/Dispatcher.pm
b/SL/Dispatcher.pm
index
2c0539b
..
8bd2968
100644
(file)
--- a/
SL/Dispatcher.pm
+++ b/
SL/Dispatcher.pm
@@
-130,13
+130,9
@@
sub handle_request {
my $interface = lc(shift || 'cgi');
my ($script_name, $action);
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);
$::cgi = CGI->new('');
$::locale = Locale->new($::language);
@@
-205,6
+201,8
@@
sub handle_request {
}
sub unrequire_bin_mozilla {
}
sub unrequire_bin_mozilla {
+ return unless $_[0] =~ m/^(?:fastcgi|fcgid|fcgi)$/;
+
for (keys %INC) {
next unless m#^bin/mozilla/#;
next if /\bcommon.pl$/;
for (keys %INC) {
next unless m#^bin/mozilla/#;
next if /\bcommon.pl$/;