Skip Menu |
 

This queue is for tickets about the CGI-FormBuilder CPAN distribution.

Report information
The Basics
Id: 81650
Status: open
Priority: 0/
Queue: CGI-FormBuilder

People
Owner: Nobody in particular
Requestors: ANDK [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 3.08
Fixed in: (no value)



Subject: Test failures due to hash randomisation in perl 5.17.6
Download (untitled) / with headers
text/plain 565b
Since bleadperl v5.17.5-518-g7dc8663 your tests are failing frequently. That commit introduced hash key randomization and it seems at least the test t/1a-generate.t is hit by that. Find a sample fail report at: http://www.cpantesters.org/cpan/report/b8a596c4-32da-11e2-bbc7-c694a290f8f5 You can read more about the change at http://perl5.git.perl.org/perl.git/commit/7dc8663964c66a698d31bbdc8e8abed69bddeec3 or at http://www.perlmonks.org/?node_id=1005122 You may have to run the test several times until the randomization causes a fail. HTH&&Thanks&&Regards,
Download (untitled) / with headers
text/plain 227b
На 02 дек. 2012, нд 19:29:39, ANDK написа: Show quoted text
> Since bleadperl v5.17.5-518-g7dc8663 your tests are failing > frequently.
Attached is a patch that fixes hash walks in tests, fixing the build failures. Cheers, dam
Subject: perl5.18-hashes.patch
Description: tests fail due to Perl 5.18 hash randomization With this patch the hashes are walked in alphabetic order during tests, avoiding the failures. . This is not flagged forwarded, since RT is not used by upstream, and upstream mailing list is a google group. Hopefuly others will look at RT. Author: Damyan Ivanov <dmn@debian.org> Forderded: no --- a/t/2c-template-tt2.t +++ b/t/2c-template-tt2.t @@ -114,7 +114,8 @@ for (@test) { ); # the ${mod} key twiddles fields - while(my($f,$o) = each %{$_->{mod} || {}}) { + for my $f ( sort keys %{$_->{mod} || {}} ) { + my $o = $_->{mod}{$f}; $o->{name} = $f; $form->field(%$o); } --- a/t/1a-generate.t +++ b/t/1a-generate.t @@ -579,7 +579,8 @@ for (@test) { ); # the ${mod} key twiddles fields - while(my($f,$o) = each %{$_->{mod} || {}}) { + for my $f ( sort keys %{$_->{mod} || {}} ) { + my $o = $_->{mod}{$f}; $o->{name} = $f; $form->field(%$o); }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.