diff options
-rwxr-xr-x | utils/scan-build | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/utils/scan-build b/utils/scan-build index 41dd29ebaa..0d4bc90d06 100755 --- a/utils/scan-build +++ b/utils/scan-build @@ -932,9 +932,9 @@ sub HtmlEscape { # copy argument to new variable so we don't clobber the original my $arg = shift || ''; my $tmp = $arg; - - $tmp =~ s/([\<\>\'\"])/sprintf("&#%02x;", chr($1))/ge; - + $tmp =~ s/&/&/g; + $tmp =~ s/</</g; + $tmp =~ s/>/>/g; return $tmp; } @@ -945,11 +945,8 @@ sub HtmlEscape { sub ShellEscape { # copy argument to new variable so we don't clobber the original my $arg = shift || ''; - my $tmp = $arg; - - $tmp =~ s/([\!\;\\\'\"\`\<\>\|\s\(\)\[\]\?\#\$\^\&\*\=])/\\$1/g; - - return $tmp; + if ($arg =~ /["\s]/) { return "'" . $arg . "'"; } + return $arg; } ##----------------------------------------------------------------------------## |