sort keys before dumping them

[bugscan.git] / t / test_spool / versions / indices / dump_stub_from_index.pl

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 f81e1778f803d7f645fbb1f60c6629cbfcfc16e4..1fa1a3de7c41654fd6f8aaf2b569a4b6275fdb84 100755 (executable)
--- 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,