X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=500a615023ebdcf3fcf22fd001d715814c9372f2;hb=4d5eead128f00eea3c8aa531c68c014825ccca7a;hp=b7c455198fd35633bb5214d585f85697e5a54823;hpb=102b51ca564ef29e7f84d2cf65d0eaa5fdab671a;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index b7c45519..500a6150 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);
@@ -510,6 +511,7 @@ sub _diffms
 
 sub diffms
 {
+	my $pkg = shift;
 	my $call = shift;
 	my $line = shift;
 	my $ta = shift;
@@ -518,7 +520,7 @@ sub diffms
 	my $msecs = _diffms($ta, $tb);
 
 	$line =~ s|\s+$||;
-	my $s = "subprocess stats cmd: '$line' $call ${msecs}mS";
+	my $s = "$pkg subprocess stats cmd: '$line' $call ${msecs}mS";
 	$s .= " $no lines" if $no;
 	DXDebug::dbg($s);
 }