--- rxvt-unicode/src/perl/matcher 2014/06/15 11:38:00 1.27 +++ rxvt-unicode/src/perl/matcher 2014/06/21 14:11:18 1.30 @@ -7,7 +7,7 @@ #:META:RESOURCE:%.button:string:the button, yeah #:META:RESOURCE:%.pattern.:string:extra pattern to match #:META:RESOURCE:%.launcher.:string:custom launcher for pattern -#:META:RESOURCE:%.rend.:string:custom rednition for pattern +#:META:RESOURCE:%.rend.:string:custom rendition for pattern =head1 NAME @@ -236,7 +236,7 @@ # mark all characters as underlined. we _must_ not toggle underline, # as we might get called on an already-marked url. &{$matcher->[2]} - for @{$rend}[ $-[0] .. $+[0] - 1]; + for @{$rend}[$-[0] .. $+[0] - 1]; $line->r ($rend); } @@ -257,7 +257,7 @@ my ($self, $row, $col) = @_; my $line = $self->line ($row); my $text = $line->t; - my $off = $line->offset_of ($row, $col) if $col; + my $off = $line->offset_of ($row, $col) if defined $col; my @matches; for my $matcher (@{$self->{matchers}}) {