--- rxvt-unicode/src/perl/selection 2006/01/17 13:19:45 1.28 +++ rxvt-unicode/src/perl/selection 2006/01/17 16:22:41 1.29 @@ -7,12 +7,10 @@ sub on_start { my ($self) = @_; - $pastebin_cmd = - (urxvt::untaint $self->x_resource ("selection-pastebin-cmd")) + $pastebin_cmd = $self->x_resource ("selection-pastebin-cmd") or "scp -p % ruth:/var/www/www.ta-sa.org/files/txt/"; - $pastebin_url = - (urxvt::untaint $self->x_resource ("selection-pastebin-url")) + $pastebin_url = $self->x_resource ("selection-pastebin-url") or "http://www.ta-sa.org/files/txt/"; (); }