[apache-talk] ?????? ? CGI ??? Apache.

[Eugene Grosbein <eugen@xxxxxxxxxxxxxxxxxxx>]

Привет!

Этот скрипт из консоли выдает "Yes!", а как cgi, из-под Apache, то "No!"

#!/usr/bin/perl -w

use POSIX qw(locale_h);
use strict;

$ENV{LANG}='ru_RU.KOI8';          #это все от безысходности :(
$ENV{LC_ALL}='ru_RU.KOI8';
$ENV{LC_CTYPE}='ru_RU.KOI8';
setlocale(LC_ALL,'ru_RU.KOI8');
setlocale(LC_CTYPE,'ru_RU.KOI8');
use locale;

$a='ляляля';

print "Content-type: text/plain\n\n";

if($a=~/\w+/) { print "Yes!\n"; }
else { print "No!\n"; }

#конец.

Причем неважно, под mod_perl или под чистым perl.
Почему?

Apache 1.3.9, perl 5.005_03

Eugene
=============================================================================
=               Apache-Talk@xxxxxxxxxxxxx mailing list                      =
Mail "unsubscribe apache-talk" to majordomo@xxxxxxxxxxxxx if you want to quit.
=       Archive avaliable at http://www.lexa.ru/apache-talk                 =