Ruslan U. Zakirov wrote: [...]
What's the transparent way to accomplish that? 'use locale' should have done that I believe. See the perllocale manpage.
This experiment say that 'locale' is working fine:
perl -Mlocale -e 'print +(sort grep /\w/, map { chr } 0..255), "\n";'
Â_0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZÐÐÐÐÐÐÐÐÐÐÑÐÒÒÑÐÐÐÑÐÑÐÐÐÐÐÑÐÐÐÑÐÑÐÐÐÑÐÐÐÐÐÑÐÐÐÐÐÑÐÐÐÐÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐÑÐ
perl -e 'print +(sort grep /\w/, map { chr } 0..255), "\n";' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz
Perfect.
I found solution. I've placed 'use locale' in package scope instead of sub scope and test goes fine. Perl "bug/feature"?
No, my mistake. Please try this one:
Index: t/response/TestApache/util.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/util.pm,v
retrieving revision 1.1
diff -u -r1.1 util.pm
--- t/response/TestApache/util.pm 9 Feb 2004 19:25:01 -0000 1.1
+++ t/response/TestApache/util.pm 16 Mar 2004 19:19:32 -0000
@@ -56,6 +56,8 @@
sub time_cmp {
my($time, $fmtdate, $comment, $exact_match) = @_;+ use locale; # for matching strftime-like date-time strings
+
if ($parse_time_ok && $exact_match) {
my $ptime = APR::Date::parse_http($fmtdate);
t_debug "fmtdate: $fmtdate";
__________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
-- 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
