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

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 9c44fa05..500a6150 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -511,6 +511,7 @@ sub _diffms
 
 sub diffms
 {
+	my $pkg = shift;
 	my $call = shift;
 	my $line = shift;
 	my $ta = shift;
@@ -519,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);
 }