fix convert args option
This commit is contained in:
parent
14dcdf67d7
commit
e64940cb33
|
@ -132,7 +132,7 @@ sub convert_args {
|
||||||
|
|
||||||
if ($self->{convert_args} =~ /^(.+?),(.*)/) {
|
if ($self->{convert_args} =~ /^(.+?),(.*)/) {
|
||||||
my ($search, $replace) = ($1, $2);
|
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";
|
eval "\$ARGV[\$i] =~ s/$search/$replace/g";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue