X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=9c44fa057528e1ce0b57bc5e92670fb947b286a3;hb=cb8e8a033f5960ca5854e89c68be461dd70cbd47;hp=b7c455198fd35633bb5214d585f85697e5a54823;hpb=07f2fed2f2949fb9e3f7f86c208150841bdeb30f;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index b7c45519..9c44fa05 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -141,6 +141,7 @@ sub dd
 {
 	my $value = shift;
 	my $dd = new Data::Dumper([$value]);
+	$dd->Sortkeys(1);
 	$dd->Indent(0);
 	$dd->Terse(1);
     $dd->Quotekeys($] < 5.005 ? 1 : 0);