Great thanks Corion for the help!my $old_stringify_body = \&MIME::Entity::stringify_body; *MIME::Entity::stringify_body = sub { my( $self ) = @_; my $body = &$old_stringify_body; $body=~/(----+=_\d+-\d+-\d)/; my $boundary=$1; $body =~ s!\n$boundary\n!\r\n$boundary\r\n!g; return $body };
In reply to Re^8: 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: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |