проблемы с Image::Magick + mod_perl
Есть такой скриптик:
Код:
#!/usr/bin/perl
use strict;
use Image::Magick;
my $image = Image::Magick->new();
$image->Set(size=>"500x400");
$image->ReadImage('xc:white');
my $str = 'a32df';
$image->Annotate( antialias => 'true',
pointsize => 44,
fill => 'red',
x => 50,
y => 50,
encoding => 'windows1251',
text => $str );
print "Content-type: image/gif\n\n";
binmode STDOUT;
$image->Write('gif:-');
Без mod_perl работает совершенно коректно, а с mod_perl выдает такую ошибку:
Внимание, вопрос: Что ж это за чушь такая и как с ней бороться?
|