projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove active debugging from mds
[spider.git]
/
perl
/
DXUtil.pm
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index 7d9e63a97b89dde5c9e7cf4e90d36eda0a1cd169..5edb1994a3ac80f3d496c6d0bc61b5364cf3abb6 100644
(file)
--- a/
perl/DXUtil.pm
+++ b/
perl/DXUtil.pm
@@
-549,7
+549,7
@@
sub difft
if (ref $b eq 'ARRAY') {
$t = $b->[1] - $b->[0];
} else {
if (ref $b eq 'ARRAY') {
$t = $b->[1] - $b->[0];
} else {
- if ($adds && $adds >= $b) {
+ if ($adds && $adds
=~ /^\d+$/ && $adds
>= $b) {
$t = $adds - $b;
$adds = shift;
} else {
$t = $adds - $b;
$adds = shift;
} else {
@@
-572,6
+572,7
@@
sub difft
$out .= sprintf ("%s${s}s", $adds?' ':'') if $s;
$out ||= sprintf ("%s0s", $adds?' ':'');
}
$out .= sprintf ("%s${s}s", $adds?' ':'') if $s;
$out ||= sprintf ("%s0s", $adds?' ':'');
}
+ $out = '0s' unless length $out;
return $out;
}
return $out;
}