Re: [sisyphus] WARNING: amavisd-new и кодировки писем

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1: Type: text/plain, Size: 1161 bytes --]

On Thu, Apr 26, 2007 at 05:56:56PM +0300, Slava Dubrovskiy wrote:
> Alexey Tourbin пишет:
> >>У меня те же ошибки. Что надо сделать?
> >>    
> >Приложить "по живому" вот этот патч, и понять, в каком месте
> >передается протухшее имя файла.  И почему оно протухло.
> >
> >--- /usr/lib/perl5/i386-linux/IO/File.pm-	2007-04-25 13:49:44 +0000
> >+++ /usr/lib/perl5/i386-linux/IO/File.pm	2007-04-26 14:02:45 +0000
> >@@ -177,6 +177,11 @@ sub open {
> > 	my ($mode, $perms) = @_[2, 3];
> > 	if ($mode =~ /^\d+$/) {
> > 	    defined $perms or $perms = 0666;
> >+	    use Scalar::Util qw(tainted):

С такой синтаксической ошибкой (двоеточие на конце) перл просто
сегфолтится. :(  Причем уже давно, вроде бы начиная с 5.8.1.

> >+	    if (tainted $file) {
> >+		    require Carp;
> >+		    Carp::cluck("file $file tainted");
> >+	    }
> > 	    return sysopen($fh, $file, $mode, $perms);
> > 	} elsif ($mode =~ /:/) {
> > 	    return open($fh, $mode, $file) if @_ == 3;
> >  
> Завтра с утра буду экспериментировать. А то уйду, а сервер ляжет...

У меня тут есть одна версия, что 'use re "taint"' стал неправильно
работать, буду ковырять.

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]