projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix all the DXUser API changes to use JSON
[spider.git]
/
perl
/
DXUtil.pm
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index 9c44fa057528e1ce0b57bc5e92670fb947b286a3..500a615023ebdcf3fcf22fd001d715814c9372f2 100644
(file)
--- a/
perl/DXUtil.pm
+++ b/
perl/DXUtil.pm
@@
-511,6
+511,7
@@
sub _diffms
sub diffms
{
sub diffms
{
+ my $pkg = shift;
my $call = shift;
my $line = shift;
my $ta = 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 $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);
}
$s .= " $no lines" if $no;
DXDebug::dbg($s);
}