| … | |
… | |
| 234 | my $rend = $line->r; |
234 | my $rend = $line->r; |
| 235 | |
235 | |
| 236 | # mark all characters as underlined. we _must_ not toggle underline, |
236 | # mark all characters as underlined. we _must_ not toggle underline, |
| 237 | # as we might get called on an already-marked url. |
237 | # as we might get called on an already-marked url. |
| 238 | &{$matcher->[2]} |
238 | &{$matcher->[2]} |
| 239 | for @{$rend}[ $-[0] .. $+[0] - 1]; |
239 | for @{$rend}[$-[0] .. $+[0] - 1]; |
| 240 | |
240 | |
| 241 | $line->r ($rend); |
241 | $line->r ($rend); |
| 242 | } |
242 | } |
| 243 | } |
243 | } |
| 244 | |
244 | |
