| Subject: | Small PATCH for MIME::tools 5.420 flush() called on IO::ScalarArray is false. |
MIME::tools 5.420
Perl 5.83 on VMS (but not limited to VMS - I think)
In lib/MIME/Parser.pm
When $ENCODE is a IO::ScalarArray, calling flush on it returns false.
flush is a no-op in IO::ScalarArray
This results in die being called incorrectly. I noticed this while
running tests for SOAP::Lite 0.67
lib/MIME/Parser.pm
821 $ENCODED->flush or die "$ME: can't flush: $!";
822 $ENCODED->seek(0, 0) or die "$ME: can't seek: $!";
lib/MIME/Parser.pm
821 if (ref $ENCODED ne 'IO::ScalarArray') {
822 $ENCODED->flush or die "$ME: can't flush: $!";
823 }
824 $ENCODED->seek(0, 0) or die "$ME: can't seek: $!";
Cheers,
Peter (Stig) Edwards