git.shiar.nl
/
barcat.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
t/regress: perl conversion of file loop
[barcat.git]
/
barcat
diff --git
a/barcat
b/barcat
index 1ffdeda9097523dfcbc6fa9e224899df7e84c6b9..431ed401489a1aa40aa9a1315966b2422734a2c5 100755
(executable)
--- a/
barcat
+++ b/
barcat
@@
-263,10
+263,10
@@
if ($opt{markers} and $size > 0) {
return $func;
}
elsif ($func =~ /\A\/($float)\z/) {
return $func;
}
elsif ($func =~ /\A\/($float)\z/) {
- my @range = $1;
- #TODO log
- for (my $next = $1; $next < $maxval; $next += $range[0]) {
- push @range, $next;
+ my @range =
my $multiple = my $next =
$1;
+ while ($next < $maxval) {
+ $multiple *= 10 if $opt{log};
+ push @range, $next
+= $multiple
;
}
return @range;
}
}
return @range;
}