From: Peter Rabbitson Date: Tue, 29 Jan 2013 00:14:10 +0000 (+0100) Subject: Fixups for 5.17.6+ hash randomization X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d5371dc9046fa07a4cd0573f00df8479f4067be;p=dbsrgits%2FDBIx-Class-Historic.git Fixups for 5.17.6+ hash randomization --- diff --git a/t/resultset/rowparser_internals.t b/t/resultset/rowparser_internals.t index 5bcf939..2c9db71 100644 --- a/t/resultset/rowparser_internals.t +++ b/t/resultset/rowparser_internals.t @@ -6,6 +6,14 @@ use lib qw(t/lib); use DBICTest; use B::Deparse; +# globally set for the rest of test +# the rowparser maker does not order its hashes by default for the miniscule +# speed gain. But it does not disable sorting either - for this test +# everything will be ordered nicely, and the hash randomization of 5.18 +# will not trip up anything +use Data::Dumper; +$Data::Dumper::Sortkeys = 1; + my $schema = DBICTest->init_schema(no_deploy => 1); my $infmap = [qw/single_track.cd.artist.name year/]; @@ -247,7 +255,7 @@ is_same_src ( $_[1] and $result_pos and (unshift @{$_[2]}, $cur_row) and last ); - $collapse_idx[1]{$cur_row_ids[1]} ||= [{ latest_cd => $cur_row->[7], year => $cur_row->[3], genreid => $cur_row->[4] }]; + $collapse_idx[1]{$cur_row_ids[1]} ||= [{ genreid => $cur_row->[4], latest_cd => $cur_row->[7], year => $cur_row->[3] }]; $collapse_idx[1]{$cur_row_ids[1]}[1]{existing_single_track} ||= $collapse_idx[2]{$cur_row_ids[1]}; $collapse_idx[2]{$cur_row_ids[1]}[1]{cd} ||= $collapse_idx[3]{$cur_row_ids[1]};