Revision c203c637
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/FCGIFixes.pm | ||
|---|---|---|
| 25 | 25 |
|
| 26 | 26 |
sub fix_print_and_internal_encoding_after_0_68 {
|
| 27 | 27 |
return if version->new("$FCGI::VERSION")->numify <= version->new("0.68")->numify;
|
| 28 |
return if lc($::dbcharset) !~ m/^(?:utf-?8|unicode)$/; |
|
| 28 | 29 |
|
| 29 | 30 |
my $encoder = Encode::find_encoding('UTF-8');
|
| 30 | 31 |
my $original_fcgi_print = \&FCGI::Stream::PRINT; |
| dispatcher.fpl | ||
|---|---|---|
| 6 | 6 |
use SL::Dispatcher; |
| 7 | 7 |
use SL::FCGIFixes; |
| 8 | 8 |
|
| 9 |
SL::FCGIFixes::apply_fixes(); |
|
| 10 |
|
|
| 11 | 9 |
our $dispatcher = SL::Dispatcher->new('FastCGI');
|
| 12 |
$dispatcher->pre_startup; |
|
| 10 |
$dispatcher->pre_startup_setup; |
|
| 11 |
SL::FCGIFixes::apply_fixes(); |
|
| 12 |
$dispatcher->pre_startup_checks; |
|
| 13 | 13 |
|
| 14 | 14 |
my $request = FCGI::Request(); |
| 15 | 15 |
$dispatcher->handle_request($request) while $request->Accept() >= 0; |
Auch abrufbar als: Unified diff
FCGI-Fix für Charset-Encoding nur bei UTF-8-Installationen anwenden
Andernfalls würden ISO-encodierte Strings vom Fix nochmal nach UTF-8
encodiert und danach erst ausgeliefert.