X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=9c44fa057528e1ce0b57bc5e92670fb947b286a3;hb=124e0718367cbdfff9985d07bfb0587a85c83d76;hp=b7c455198fd35633bb5214d585f85697e5a54823;hpb=102b51ca564ef29e7f84d2cf65d0eaa5fdab671a;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);