| Subject: | untie attempted while 1 inner references still exist with Test::NoWarnings |
This might just as well be a bug in Test::NoWarnings; I haven't looked deeply enough.
$ cat /tmp/foo
#!/usr/local/bin/perl
use Test::Simple tests => 3;
use Test::Output;
use Test::NoWarnings;
stderr_is { print STDERR "foo\n" } "foo\n";
combined_is { 42 } "";
$ /tmp/foo
1..3
ok 1
ok 2
not ok 3 - no warnings
# Failed test 'no warnings'
# in /usr/local/lib/perl5/5.8.8/Test/NoWarnings.pm at line 45.
# There were 1 warning(s)
# Previous test 1 ''
# untie attempted while 1 inner references still exist at /usr/local/lib/perl5/site_perl/
5.8.8/Test/Output.pm line 911.
# at /usr/local/lib/perl5/site_perl/5.8.8/Test/Output.pm line 911
# Test::Output::combined_from('CODE(0x957c36c)') called at /usr/local/lib/perl5/
site_perl/5.8.8/Test/Output.pm line 370
# Test::Output::combined_is('CODE(0x957c36c)', '') called at /tmp/foo line 6
#
# Looks like you failed 1 test of 3.