| Subject: | conditional testing broken in blead? |
In the attached test program, Line 30 (the first line of sub test) is showing as 66% covered when
running off 5.15.7. It shows as 100% in 5.14. As best I can tell, 5.14 is right and 5.15.7 is
wrong.
In the conditional table, the last line shows as unmet on 5.15
A B dec
0 X 0
1 0 0
1 1 1
FYI, I'm running D:C with the patch from RT 61515
| Subject: | foo.pl.txt |
#!/usr/local/cpanel/bin/perl
package Foo;
sub new {
return bless { 'bar' => 'hdhfjf' }, 'foo';
}
package main;
use Test::More;
my $f = Foo->new();
# false, x
my $c1 = ok(test());
# true, false
$ENV{'FOO'} = 'blah';
my $c2 = ok(test());
# true, true
$ENV{'FOO'} = 'hdhfjf';
my $c3 = ok(!test());
done_testing();
exit;
sub test {
return if($ENV{'FOO'} and $ENV{'FOO'} eq $f->{'bar'});
return 1;
}