X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=500a615023ebdcf3fcf22fd001d715814c9372f2;hb=2462f5e2370ec0bdafe12deea0d131ea3718fb29;hp=9c44fa057528e1ce0b57bc5e92670fb947b286a3;hpb=3e74e0c6a89cba419cdc0d8713bcf834f6dbc510;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);
 }