use encoding in both scripts and modules

panic happens while hacking with encoding pragma.

slasher:/home/miyagawa/tmp> cat encoding-test.pl
use strict;
require 5.7.3;

use encoding 'euc-jp';
use EncBar;

my $bar = EncBar::foo;
print $bar;

slasher:/home/miyagawa/tmp> cat EncBar.pm
package EncBar;
use encoding 'euc-jp';
sub foo { "\xa4\xdb" }

1;

slasher:/home/miyagawa/tmp> bleadperl encoding-test.pl
"\x{46c5}" does not map to euc-jp.
panic: sv_setpvn called with negative strlen.



-- 
Tatsuhiko Miyagawa <miyagawa(_at_)edge(_dot_)co(_dot_)jp>