/[iselect]/bin/iselect.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/iselect.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by dpavlin, Thu Oct 25 11:43:48 2007 UTC revision 3 by dpavlin, Thu Oct 25 11:47:40 2007 UTC
# Line 57  for my $l (0 .. $#lines) { Line 57  for my $l (0 .. $#lines) {
57                  $selectable_line->{$l}++;                  $selectable_line->{$l}++;
58                  $foo = '*';                  $foo = '*';
59          }          }
60          warn "$l: $foo $lines[$l]\n";  #       warn "$l: $foo $lines[$l]\n";
61  }  }
62    
63  # select first selectable line  # select first selectable line
64    
65  if ( $selectable_line ) {  if ( $selectable_line ) {
66          $sel_pos = (sort keys %$selectable_line)[0];          $pos = $sel_pos = (sort { $a <=> $b } keys %$selectable_line)[0];
67          warn "selected first selectable line $pos";          warn "selected first selectable line $sel_pos";
68  }  }
69    
70  sub full_line {  sub full_line {

Legend:
Removed from v.2  
changed lines
  Added in v.3

  ViewVC Help
Powered by ViewVC 1.1.26