X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=t%2Ftest_spool%2Fversions%2Findices%2Fdump_stub_from_index.pl;h=1fa1a3de7c41654fd6f8aaf2b569a4b6275fdb84;hp=f81e1778f803d7f645fbb1f60c6629cbfcfc16e4;hb=0b00d1d43a47585e5207fa60438a1c662528f249;hpb=2e6bbc312aa7b1d85dd4e8c5fb3b5e3895a30748

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,