CPAN test reports are like money - 95% of it is controlled by just 5% of the population (or something like that).
There are a small handful of individuals who submit a vast number of CPAN test reports. Check the failure reports you are getting - are they all from the same person? If so, perhaps their system is configured unusually.
Otherwise, I'd personally just document the problem and then forget about it. Something like:
=head1 BUGS
The test suite fails in Perl 5.12 on BSD operating systems.
Upgrading to Perl 5.14 or above should solve this problem.
Patches to fix the issue would be joyfully accepted.
PS: for a hint about why this bug doesn't affect 5.14 and above, see Unexpected behavior of function 'say'.
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name
| [reply] [d/l] [select] |
print $fh [rest of print line]
It seems with 'say', the above form worked, while the 'preferred' (hmmm) "$fh->say"
did not..?
BTW, FWIW, I'd really hate to put in a BUGS section like that indicating that they'd have to upgrade just because of my module. If I did have to put in a section like that, I'd like to point them to a perlbug# specific for their version & platform -- but that still would beg the question, "why BSD and not linux"? On the level that I'm using perl, they should be identical. If the 5.12 version of perl on BSD was miscompiled, I'd think that would be fixable, no?
For windows, am wondering if I should just skip those tests that won't work? The execute test on lib/P.pm... yeah, that would be skippable, but the other test is testing the ability to print directly *from* a file descriptor. I think that should work on windows if I write a tiny perl-prog to emulate the function(s) of
cat & rev. I.e. its a corner case that's not really worth the effort, but it would
probably be the "right thing to do"...;^/
| [reply] [d/l] |
use IO::File ();
use IO::Handle ();
... I strongly suspect it will solve the problem.
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name
| [reply] [d/l] |