According to Valentin Nechayev: Hi!
Кто знает perl - посмотрите, пожалуйста, прав ли я в этом патче. Что-то там исходно очень странный код был.
To gul: а твоего патча на эту тему я совсем не понял:(( Разъяснить можешь? To olwi: там 1.94.5, я вначале не туда посмотрел.
--- resend.20010619 Tue Jun 19 12:12:01 2001 +++ resend Fri Aug 2 11:59:45 2002 @@ -718,8 +718,7 @@ print STDERR "$0: parse_header: adding subject prefix\n" if $DEBUG; local($foo) = &config'substitute_values($config_opts{$opt_l,"subject_prefix"}, $opt_l);#'; local($foo_pat) = $foo; - $foo_pat =~ s/(\W)/\\$1/g; - s/^subject:[^\S\n]*/Subject: $foo /i if !/$foo_pat/; + s/^subject:[ \t]*/Subject: $foo /i if !/\Q$foo_pat\E/; ^^^ Глубоко не копая, нельзя ли здесь просто написать \s ? В остальном все выглядит прилично.
}
# snag reply-to field
/netch =================================================================== uanog mailing list. To Unsubscribe: send mail to majordomo@uanog.kiev.ua with "unsubscribe uanog" in the body of the message
-- Taras Heychenko =================================================================== uanog mailing list. To Unsubscribe: send mail to majordomo@uanog.kiev.ua with "unsubscribe uanog" in the body of the message