- body_set($self, \(encode($charset, $body_str, Encode::FB_CROAK)));
+ my $enc = find_encoding($cs) // croak "unknown encoding `$cs'";
+ my $tmp;
+ {
+ my @w;
+ local $SIG{__WARN__} = sub { push @w, @_ };
+ $tmp = $enc->encode($str, Encode::FB_WARN);
+ croak(@w) if @w;
+ };
+ body_set($self, \$tmp);