- \$ref = [ split '\\^' ];
- push \@\$ref, "" unless \@\$ref >= 4;
- push \@in, \$ref;
- }
- my \$c;
- for (\$c = \$#in; \$c >= 0; \$c--) {
- \$ref = \$in[\$c];
- if ($search) {
- \$count++;
- next if \$count < $from;
- unshift \@out, print_item(\$ref);
- last if \$count >= \$to; # stop after n
- }
- }
- );
+ # say "line: \$_";
+ push \@in, \$_;
+ last L1 if \@in >= $tot;
+ } );
+
+ if (isdbg('search')) {
+ dbg("sh/log hint: $hint");
+ dbg("sh/log eval: $eval");
+ }