fix convert args option

This commit is contained in:
qgarnier 2017-06-01 17:57:45 +02:00
parent 14dcdf67d7
commit e64940cb33
1 changed files with 1 additions and 1 deletions

View File

@ -132,7 +132,7 @@ sub convert_args {
if ($self->{convert_args} =~ /^(.+?),(.*)/) {
my ($search, $replace) = ($1, $2);
for (my $i = 0; $i < $#ARGV; $i++) {
for (my $i = 0; $i <= $#ARGV; $i++) {
eval "\$ARGV[\$i] =~ s/$search/$replace/g";
}
}