projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
get rid of sh/dx debugging warnings
[spider.git]
/
cmd
/
show
/
dx.pl
diff --git
a/cmd/show/dx.pl
b/cmd/show/dx.pl
index 655630ce798b24baee204c2899230095b2db3b90..6a9a3829a3a7a79f5878034703edd9a7bfb2959d 100644
(file)
--- a/
cmd/show/dx.pl
+++ b/
cmd/show/dx.pl
@@
-44,13
+44,13
@@
sub handle
while ($f = shift @list) { # next field
dbg "sh/dx arg: $f list: " . join(',', @list) if isdbg('sh/dx');
while ($f = shift @list) { # next field
dbg "sh/dx arg: $f list: " . join(',', @list) if isdbg('sh/dx');
- if (!$from && !$to) {
- ($from, $to) = $f =~ m|^(\d+)[-/](\d+)$|; # is it a from -> to count?
+ if (
$f &&
!$from && !$to) {
+ ($from, $to) = $f =~ m|^(\d+)[-/](\d+)$|
|| (0,0)
; # is it a from -> to count?
dbg("sh/dx from: $from to: $to") if isdbg('sh/dx');
next if $from && $to > $from;
}
dbg("sh/dx from: $from to: $to") if isdbg('sh/dx');
next if $from && $to > $from;
}
- if (!$to) {
- ($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count?
+ if (
$f &&
!$to) {
+ ($to) = $f =~ /^(\d+)$/o
|| 0
if !$to; # is it a to count?
dbg("sh/dx to: $to") if isdbg('sh/dx');
next if $to;
}
dbg("sh/dx to: $to") if isdbg('sh/dx');
next if $to;
}