Bug#460396: not ready for message/digest

[jidanni at jidanni.org]

Package: libmime-lite-perl
Version: 3.021-1

This "TBD" item,

        ### TBD: this is not really right for message/digest:
        if (     ( keys %{ $self->{Attrs}{'content-type'} } == 1 )
             and ( $self->_safe_attr('content-type') eq 'text/plain' ) )

Caused me

       Can't use string ("text/plain") as a HASH ref while "strict
       refs" in use at /usr/share/perl5/MIME/Lite.pm line 1695.

When I added $part->scrub to

       use MIME::Lite;
       my $msg = MIME::Lite->new( Type => "multipart/digest", );
       my $part = MIME::Lite->build(
	   Subject => "Hi there!",
	   Data    => "wow",
       );
       $part->scrub;
       $msg->attach($part);
       $msg->print( \*STDOUT );

So one hopes "TBD" will become "D" soon.