| Subject: | Failing t/04_die.t (regression?) |
| Date: | Mon, 20 Dec 2010 11:13:55 -0330 |
| To: | bug-Test-TCP [...] rt.cpan.org |
| From: | Chad House <chadh [...] pobox.com> |
Tested on 1.08 and 1.10 with perl versions:
* v5.8.8 built for i486-linux-gnu-thread-multi
* v5.10.1 built for i486-linux-gnu-thread-multi
from the Ubuntu 8.04 and 10.04 LTS (long term support) distros.
t/04_die.t .................. 1/3
# Failed test at t/04_die.t line 24.
# Failed test at /home/chadh/tmp/Test-TCP-1.10/inc/Test/More.pm line 415.
# ''
# doesn't match '(?-xism:sinamon)'
# Looks like you failed 2 tests of 3.
t/04_die.t .................. Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/3 subtests
I noticed in a previous commit (around 1.04?) a message about
localizing $@ but that doesn't seem to be happening in the last few
versions. Modifying the DESTROY method like:
sub DESTROY {
my $self = shift;
local $@;
$self->stop();
}
made the tests pass again.
Regards,
Chad