Fix test failure caused by hash randomisation in perl 5.17 (RT#82917)

diff --git a/Changes b/Changes
index 49357bf..64fa24a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Perl extension Catalyst::Model::DBIC::Schema
 
+        - Fix test failure caused by hash randomisation in perl 5.17 (RT#82917)
+
 0.60  2012-06-12 16:27:00
         - Add per_request_schema hook to PerRequestSchema trait and docs
         - Additional paranoia in types as it's possible for loading code

diff --git a/lib/Catalyst/Helper/Model/DBIC/Schema.pm b/lib/Catalyst/Helper/Model/DBIC/Schema.pm
index 0ec2074..8ba34a7 100644 (file)
--- a/lib/Catalyst/Helper/Model/DBIC/Schema.pm
+++ b/lib/Catalyst/Helper/Model/DBIC/Schema.pm
@@ -502,6 +502,7 @@ sub _data_struct_to_string {
 
     local $Data::Dumper::Terse = 1;
     local $Data::Dumper::Quotekeys = 0;
+    local $Data::Dumper::Sortkeys = 1;
     local $Data::Dumper::Indent = 0;
     local $Data::Dumper::Useqq = 1;