提交 49cd47ea 编写于 作者: R Richard Levitte

util/dofile.pl: only quote stuff that actually needs quoting

Reviewed-by: NRich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/5533)
上级 cd15cb4d
...@@ -99,9 +99,9 @@ package main; ...@@ -99,9 +99,9 @@ package main;
# This adds quotes (") around the given string, and escapes any $, @, \, # This adds quotes (") around the given string, and escapes any $, @, \,
# " and ' by prepending a \ to them. # " and ' by prepending a \ to them.
sub quotify1 { sub quotify1 {
my $s = shift @_; my $s = my $orig = shift @_;
$s =~ s/([\$\@\\"'])/\\$1/g; $s =~ s/([\$\@\\"'])/\\$1/g;
'"'.$s.'"'; $s ne $orig || $s =~ /\s/ ? '"'.$s.'"' : $s;
} }
# quotify_l LIST # quotify_l LIST
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册