Здравствуйте, Stas.
Вы писали 30 августа 2004 г., 20:25:14:
[...]
>>
>>
>> I changed \w+ on \S+ and all test ok.
>> I think this is bug of perl5.8.0 as Unicode not fully supported
SB> I guess that can work. But 5.8.0 seems to work fine for me. Here are some
SB> examples:
SB> perl-5.6.2 -le '$x = "\x{0417}\x{0430}"; print $x =~ /\w/ ? "OK" : "NOT OK";'
SB> NOT OK
SB> perl-5.8.0 -le '$x = "\x{0417}\x{0430}"; print $x =~ /\w/ ? "OK" : "NOT OK";'
SB> OK
This work fine!
SB> Do they work for you? if yes, please post here an encoded string that it
SB> has failed to match. The debug output is mungled A? is not a proper
SB> string. you can encode it with Encode::encode("utf8", $x).
I chanched code like this, because Encode::encode not help:
my($fmtdate, $time, $comment, $exact_match) = @_;
if ($parse_time_ok && $exact_match) {
my $ptime = APR::Date::parse_http($fmtdate);
t_debug "fmtdate: $fmtdate";
ok t_cmp $ptime, $time, $comment;
}
else {
use Data::Dumper;
print "\n".Dumper($fmtdate)."\n";
print "\n: \\".join("\\",unpack('U*',$fmtdate))."\n\n";
ok t_cmp $fmtdate_ptn, $fmtdate, $comment;
}
}
-----------------
and i receive this:
t/apache/util....1..8
# Running under perl version 5.008 for linux
# Current time local: Tue Aug 31 15:50:32 2004
# Current time GMT: Tue Aug 31 12:50:32 2004
# Using Test.pm version 1.23
# Using Apache/Test.pm version 1.14
$VAR1 = 'A?A?A?A?A?A?, 31 A?A?A?A?A?A? 2004 12:51:04 GMT';
\208\146\209\130\209\128\44\32\51\49\32\208\144\208\178\208\179\32\50\48\48\52\32\49\50\58\53\49\58\48\52\32\71\77\84
# WARNING!!! t_cmp() argument order has changed.
# use of a regular expression as the first argument
# is deprecated. support will be removed soon.
# testing : Apache::Util::ht_time($pool)
# expected: (?-xism:^\w+, \d\d \w+ \d\d\d\d \d\d:\d\d:\d\d)
# received: A?A?A?A?A?A?, 31 A?A?A?A?A?A? 2004 12:51:04 GMT
not ok 1
$VAR1 = 'A?A?A?A?A?A?, 31 A?A?A?A?A?A? 2004 12:51:04 GMT';
\208\146\209\130\209\128\44\32\51\49\32\208\144\208\178\208\179\32\50\48\48\52\32\49\50\58\53\49\58\48\52\32\71\77\84
# WARNING!!! t_cmp() argument order has changed.
# use of a regular expression as the first argument
# is deprecated. support will be removed soon.
# testing : Apache::Util::ht_time($pool, $time)
# expected: (?-xism:^\w+, \d\d \w+ \d\d\d\d \d\d:\d\d:\d\d)
# received: A?A?A?A?A?A?, 31 A?A?A?A?A?A? 2004 12:51:04 GMT
not ok 2
$VAR1 = 'A?A?A?A?A?A?, 31 A?A?A?A?A?A? 2004 12:51:04 GMT';
\208\146\209\130\209\128\44\32\51\49\32\208\144\208\178\208\179\32\50\48\48\52\32\49\50\58\53\49\58\48\52\32\71\77\84
# WARNING!!! t_cmp() argument order has changed.
# use of a regular expression as the first argument
# is deprecated. support will be removed soon.
# testing : Apache::Util::ht_time($pool, $time, $fmt)
# expected: (?-xism:^\w+, \d\d \w+ \d\d\d\d \d\d:\d\d:\d\d)
# received: A?A?A?A?A?A?, 31 A?A?A?A?A?A? 2004 12:51:04 GMT
not ok 3
$VAR1 = 'A?A?A?A?A?A?, 31 A?A?A?A?A?A? 2004 15:51:04 EEST';
\208\146\209\130\209\128\44\32\51\49\32\208\144\208\178\208\179\32\50\48\48\52\32\49\53\58\53\49\58\48\52\32\69\69\83\84
# WARNING!!! t_cmp() argument order has changed.
# use of a regular expression as the first argument
# is deprecated. support will be removed soon.
# testing : Apache::Util::ht_time($pool, $time, $fmt, $gmt)
# expected: (?-xism:^\w+, \d\d \w+ \d\d\d\d \d\d:\d\d:\d\d)
# received: A?A?A?A?A?A?, 31 A?A?A?A?A?A? 2004 15:51:04 EEST
not ok 4
# testing : Apache::Util::escape_path / partial=1 / default
# expected: a%20'long'%20file%3f.html
# received: a%20'long'%20file%3f.html
ok 5
# testing : Apache::Util::escape_path / partial=1 / explicit
# expected: a%20'long'%20file%3f.html
# received: a%20'long'%20file%3f.html
ok 6
# testing : Apache::Util::escape_path / partial=0
# expected: a%20'long'%20file%3f.html
# received: a%20'long'%20file%3f.html
ok 7
# testing : Apache::Util::escape_path / partial=0 / ./ prefix
# expected: ./a%20'long'%20file%3f.html:
# received: ./a%20'long'%20file%3f.html:
ok 8
FAILED tests 1-4
Failed 4/8 tests, 50.00% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/apache/util.t 8 4 50.00% 1-4
Failed 1/1 test scripts, 0.00% okay. 4/8 subtests failed, 50.00% okay.
--
С уважением,
Dmitry mailto:[EMAIL PROTECTED]
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
