Parent Directory | Revision Log | Patch
revision 16 by dpavlin, Thu Oct 25 19:21:12 2007 UTC | revision 17 by dpavlin, Thu Oct 25 19:32:15 2007 UTC | |
---|---|---|
# | Line 221 sub loop { | Line 221 sub loop { |
221 | my $callback = shift; | my $callback = shift; |
222 | confess "expect callback as first arg" unless ref($callback) eq 'CODE'; | confess "expect callback as first arg" unless ref($callback) eq 'CODE'; |
223 | ||
224 | my @lines = $self->lines; | my @lines = @{ $self->lines }; |
225 | ||
226 | # find which lines are selectable in input file | # find which lines are selectable in input file |
227 | for my $l (0 .. $#lines) { | for my $l (0 .. $#lines) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |