--- rxvt-unicode/src/perl/mark-urls 2006/01/12 02:20:56 1.7 +++ rxvt-unicode/src/perl/mark-urls 2006/01/19 09:47:15 1.9 @@ -10,7 +10,7 @@ sub on_start { my ($self) = @_; - $self->{browser} = urxvt::untaint $self->x_resource ("urlLauncher") || "x-www-browser"; + $self->{browser} = $self->x_resource ("urlLauncher") || "x-www-browser"; () } @@ -51,7 +51,7 @@ if ($event->{button} == 2 && ($event->{state} & $mask) == 0) { while ($text =~ /$url/g) { if ($-[1] <= $col && $+[1] >= $col) { - urxvt::exec_async $self->{browser}, $1; + $self->exec_async ($self->{browser}, $1); return 1; } }