Revision ba82cfbb
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| SL/FCGIFixes.pm | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
use Encode; |
| 6 | 6 |
use FCGI; |
| 7 |
use version; |
|
| 7 | 8 |
|
| 8 | 9 |
# FCGI does not use Perl's I/O layer. Therefore it does not honor |
| 9 | 10 |
# setting STDOUT to ":utf8" with "binmode". Also FCGI starting with |
| ... | ... | |
| 23 | 24 |
# that current I/O operations should be raw. |
| 24 | 25 |
|
| 25 | 26 |
sub fix_print_and_internal_encoding_after_0_68 {
|
| 26 |
return if version->parse($FCGI::VERSION) <= version->parse("0.68");
|
|
| 27 |
return if version->new("$FCGI::VERSION")->numify <= version->new("0.68")->numify;
|
|
| 27 | 28 |
|
| 28 | 29 |
my $encoder = Encode::find_encoding('UTF-8');
|
| 29 | 30 |
my $original_fcgi_print = \&FCGI::Stream::PRINT; |
Auch abrufbar als: Unified diff
Legacy Fix: version->parse existiert erst seit 5.10.1. Vorher muss version->new->numify