my $format = '%%mxmlrtorrent: %%n' . shift(@text);
# escape % in parameters from irssi
- @text = grep { s/%/%%/g } @text;
+ s/%/%%/g foreach @text;
if (defined($output) and ref($output)) {
$output->print(sprintf($format, @text), MSGLEVEL_CLIENTCRAP);