develooper Front page | perl.perl5.porters | Postings from September 2000

MIME-tools-5.311 and perl5.7.0

Nick Ing-Simmons
September 2, 2000 03:03
MIME-tools-5.311 and perl5.7.0
Message ID:

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;
select $oldfh;
close TMP;
$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 Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About