On Wed, Sep 25, 2002 at 07:44:47PM +0200, Robert Allerstorfer wrote:
> my ($from, $to) = map { s/^utf8$/utf-8/i; lc($_) } ($_[1], $_[2]);
> But this fails due to the attempt to change $_[1]. I fixed this by
> replacing this line by
>
> my ($from, $to) = @_[1, 2];
> ($from, $to) = map {
> s/^utf8$/utf-8/i;
> s/^shiftjis$/shift_jis/i;
> lc;
> } ($from, $to);Thanks for your input. I decide to bundle the Alias.pm with Encode::compat to fix this problem more cleanly. The revised 0.03 has hit CPAN, and for the time being you can pick it up at <http://www.autrijus.org/Encode-compat-0.03.tar.gz>. :-) Happy hacking, /Autrijus/
msg01475/pgp00000.pgp
Description: PGP signature
