| … | |
… | |
| 224 | my ($self, $row) = @_; |
224 | my ($self, $row) = @_; |
| 225 | |
225 | |
| 226 | # fetch the line that has changed |
226 | # fetch the line that has changed |
| 227 | my $line = $self->line ($row); |
227 | my $line = $self->line ($row); |
| 228 | my $text = $line->t; |
228 | my $text = $line->t; |
| 229 | my $i = 0; |
|
|
| 230 | |
229 | |
| 231 | # find all urls (if any) |
230 | # find all urls (if any) |
| 232 | for my $matcher (@{$self->{matchers}}) { |
231 | for my $matcher (@{$self->{matchers}}) { |
| 233 | while ($text =~ /$matcher->[0]/g) { |
232 | while ($text =~ /$matcher->[0]/g) { |
| 234 | #print "$&\n"; |
233 | #print "$&\n"; |
