This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Actually generate full failure diagnostics in checkErrs() in B's OptreeCheck,
authorNicholas Clark <nick@ccl4.org>
Fri, 4 Feb 2011 16:59:42 +0000 (16:59 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 4 Feb 2011 16:59:42 +0000 (16:59 +0000)
commit3df2ec53a8bebf2834a6148ee2f3453fdc73fd66
treea0d1b21afd135fb29d931bafa7d7c0e295d04707
parent3857d07c85882fa81d5e5c1ce2867e8c957747d0
Actually generate full failure diagnostics in checkErrs() in B's OptreeCheck,

3857d07c85882fa8 used if() where unless() would have been correct. However, I
didn't spot this because

a: none of the tests fail so none are trying to generate diagnostics
b: the code as written is silent if there are no errors

Hence make the code be called unconditionally, which simplifies things.

Remove the vestigial forced fail() if $gOpts{fail} is true.
ext/B/t/OptreeCheck.pm