ARGV gehts encoded multiple times when perl5i is used multiple times

[datamuc]

Example code (refered as foo.pl):

{
    package Foo;
    use perl5i::2;
}
{
    package Bar;
    use perl5i::2;
}
use Devel::Peek;
Dump($ARGV[0]);

If you run that with perl foo.pl ö, it prints the following:

SV = PV(0x8f917c8) at 0x8facf80
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x93dbe58 "\357\277\275"\0 [UTF8 "\x{fffd}"]
  CUR = 3
  LEN = 4

But it should print:

SV = PV(0x96077c8) at 0x9622f80
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x9adbfa8 "\303\266"\0 [UTF8 "\x{f6}"]
  CUR = 2
  LEN = 4

I guess this get's executed twice (from perl5i/2.pm):

# utf8ify @ARGV
$_ = Encode::decode('utf8', $_) for @ARGV;

[schwern]

Yep, that really should only happen once per load. Just needs a state flag.

[schwern]

Only encode @argv once.

Closed by 022b4cc