Stas Bekman wrote:
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:
Nop.
Only attached one.
Good luck. Ruslan.
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
locale.patch
Description: application/aegis-patch
--
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
