On Fri, Aug 02, 2002 at 12:00:55PM +0300, Valentin Nechayev wrote:
Кто знает perl - посмотрите, пожалуйста, прав ли я в этом патче. Что-то там исходно очень странный код был.
To gul: а твоего патча на эту тему я совсем не понял:(( Разъяснить можешь? To olwi: там 1.94.5, я вначале не туда посмотрел.
популярная вещь, а для какого это list manager-а? (для mailman-а я сам делал на основе патчей vaget-а)
--- 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/^subject:\s+/ ... - потому как хоть один пробел должен быть. а так правильно. =================================================================== uanog mailing list. To Unsubscribe: send mail to majordomo@uanog.kiev.ua with "unsubscribe uanog" in the body of the message