projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Now add files that the previous commit refered to
[spider.git]
/
perl
/
DXUtil.pm
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index b7c455198fd35633bb5214d585f85697e5a54823..500a615023ebdcf3fcf22fd001d715814c9372f2 100644
(file)
--- a/
perl/DXUtil.pm
+++ b/
perl/DXUtil.pm
@@
-141,6
+141,7
@@
sub dd
{
my $value = shift;
my $dd = new Data::Dumper([$value]);
{
my $value = shift;
my $dd = new Data::Dumper([$value]);
+ $dd->Sortkeys(1);
$dd->Indent(0);
$dd->Terse(1);
$dd->Quotekeys($] < 5.005 ? 1 : 0);
$dd->Indent(0);
$dd->Terse(1);
$dd->Quotekeys($] < 5.005 ? 1 : 0);
@@
-510,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;
@@
-518,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);
}