MIME-tools-5.311 and perl5.7.0

Building MIME-tools with perl5.7.0 failed three tests. There was only 
one real fail (t/Entity.t # 16):

#------------------------------------------------------------
$T->msg("Output msg2 to selected filehandle");
#------------------------------------------------------------
open TMP, ">testout/entity.msg2" or die "open: $!";
my $oldfh = select TMP;
$top->print;
select $oldfh;
close TMP;
#-----test------
$T->ok((-s "testout/entity.msg2"), 
       "write msg2 to selected filehandle");

It seems when you do that 5.7.0's select() returns 'TMP' when print 
method asks for current handle. 

I have no idea if this is new behaviour but the attached patch fixes it.




-- 
Nick Ing-Simmons

• MIME-tools-5.311 and perl5.7.0 by Nick Ing-Simmons