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/
pgpB9ptoiAigM.pgp
Description: PGP signature