Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (asf.osuosl.org: domain of jagerman@jagerman.com designates
 216.18.5.100 as permitted sender)
Message-ID: <44777981.70101@jagerman.com>
Date: Fri, 26 May 2006 14:56:17 -0700
From: Jason Rhinelander <jagerman@jagerman.com>
User-Agent: Thunderbird 1.5.0.2 (X11/20060516)
MIME-Version: 1.0
To: Gunnar Koppel <gunnar@raamatukoi.ee>
CC: modperl@perl.apache.org
Subject: Re: mp2: utf-8 and uc() under modperl2
References: <B945DFC946FB0C4692C6A07B46F40A4E2B8A43@CLIFFCLAVEN.realm.ad2.com>
 <4475E5EC.4050501@raamatukoi.ee>
In-Reply-To: <4475E5EC.4050501@raamatukoi.ee>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

Gunnar Koppel wrote:
> Terr!
>=20
> I have little problem with UTF-8 under modperl2. I made such little
> script for testing:
>=20
> -------
> #!/usr/bin/perl
>=20
> use strict;
> use locale;
> use utf8;
> binmode stdin, ":utf8";
> binmode stdout, ":utf8";
>=20
> my @alpha =3D qw(a b c d e f g h i j k l m n o p q r s =C5=A1 z =C5=BE =
t u v =C3=B5 =C3=A4 =C3=B6 =C3=BC
> x y);
> print "Content-Type: text/plain; charset=3DUTF-8\n\n";
> print "LC_CTYPE: $lc\n";
> print "\u$_ " foreach @alpha;
> print "\n";
> -------

The script as above doesn't work out of the box -- the '$lc' variable
isn't defined.  Commenting out that line, I got the same results as you
and eventually figured it out to be a problem with using 'stdout'
instead of 'STDOUT' in your binmode() calls.  Changing the binmode from:

binmode stdout, ":utf8";

to:

binmode STDOUT, ":utf8";

makes it work properly.  This seems to me like a bug, but perhaps
someone more familiar with mod_perl's STDOUT tying than I can explain
this (or confirm this as a bug).


--=20
-- Jason Rhinelander