[ic] MIME::Lite error with UTF-8 enabled

[Stefan Hornburg]

Hello,

one of my catalogs is running current Interchange from CVS and UTF-8 enabled
as follows:

Variable MV_UTF8 1
Variable MV_HTTP_CHARSET utf-8

AllowGlobal fshop
PerlAlwaysGlobal fshop

Sometimes the mail compostion with MIME::Lite bails out as follows:

/cgi-bin/f-shop/checkout Runtime error: Wide character in subroutine entry at /home/interchange/perl/lib/site_perl/5.10.0/MIME/Lite.pm line 2259.

  /^QUOTED-PRINTABLE$/ and do {
                ### UNTAINT since m//mg on tainted data loops forever:
                my ($untainted) = ( $self->{Data} =~ m/\A(.*)\Z/s );

                ### Encode it line by line:
                while ( $untainted =~ m{^(.*[\r\n]*)}smg ) {
                    ### have to do it line by line...
                    my $line = $1; # copy to avoid weird bug; rt 39334
2259>>              $out->print( encode_qp($line) );
                }
                last DATA;

Any ideas what might causing this problem?

Regards
         Racke

-- 
LinuXia Systems => http://www.linuxia.de/
Expert Interchange Consulting and System Administration
ICDEVGROUP => http://www.icdevgroup.org/
Interchange Development Team