From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 21 Mar 2014 02:38:31 +0000 (-0700)
Subject: sort keys before dumping them
X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=commitdiff_plain;h=0b00d1d43a47585e5207fa60438a1c662528f249;hp=2e6bbc312aa7b1d85dd4e8c5fb3b5e3895a30748

sort keys before dumping them
---

diff --git a/t/test_spool/versions/indices/dump_stub_from_index.pl b/t/test_spool/versions/indices/dump_stub_from_index.pl
index f81e177..1fa1a3d 100755
--- a/t/test_spool/versions/indices/dump_stub_from_index.pl
+++ b/t/test_spool/versions/indices/dump_stub_from_index.pl
@@ -52,11 +52,14 @@ dump_stub_from_index.pl
 
 use vars qw($DEBUG);
 use MLDBM qw(DB_File Storable);
+# Use the portable dump method
+$MLDBM::DumpMeth=q(portable);
 use Data::Dumper;
+# sort Data::Dumper keys
+$Data::Dumper::Sortkeys=1;
 use Fcntl;
 use File::Basename;
 
-$MLDBM::DumpMeth=q(portable);
 
 my %options = (debug           => 0,
                help            => 0,