projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
8c33912
)
get rid of sh/dx debugging warnings
author
Dirk Koopman
<djk@tobit.co.uk>
Wed, 3 Jun 2020 22:56:24 +0000
(23:56 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Wed, 3 Jun 2020 22:56:24 +0000
(23:56 +0100)
cmd/show/dx.pl
patch
|
blob
|
history
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;
}