SUCCESS! Your code works great.. this actually fix the wrong behaviour:
my $old_stringify_body = \&MIME::Entity::stringify_body; *MIME::Entity::stringify_body = sub { my( $self ) = @_; my $body = &$old_stringify_body; $body =~ s!\n!\r\n!g; return $body };
In reply to Re^6: Again on SOAP::Lite, MIME::Entity and SOAP::Packager
by ray.rick.mini
in thread Again on SOAP::Lite, MIME::Entity and SOAP::Packager
by ray.rick.mini
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |