Tisk v unicode

[Ondrej Koala Vacha]

Dobry den,

mam nejasnost v tisku unicode:

$ perl test.pl
M1:Widekcharacter in print at M.pm line 8.
M2:ježeček
xM1:Wiek character in print at n3.pl line 13.
xM2:Wiek character in print at n3.pl line 15.

Proc se ježeček vytiskne dobre v iso-latin2 pouze pri volani z externiho
modulu? Mam tam nekde neco spatne?

dekuji
--
Ondrej Koala Vacha

----------------------test.pl----------------------
#!/usr/local/bin/perl -w
use encoding 'latin2';
use M;

$a="ježeček";
pp($a);
xM::pp($a);

package xM;
sub pp {
        my $prikaz = shift;
        print STDERR "xM1:",$prikaz,"\n";
        $a="ježeček";
        print STDERR "xM2:",$a,"\n";
}
1;
---------------------------------------------------

-------------------------M.pm----------------------
package M;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(pp);

sub pp {
        my $prikaz = shift;
        print STDERR "M1:",$prikaz,"\n";
        $a="ježeček";
        print STDERR "M2:",$a,"\n";
}
1;
---------------------------------------------------