aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xutils/scan-build13
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/&/&amp;/g;
+ $tmp =~ s/</&lt;/g;
+ $tmp =~ s/>/&gt;/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;
}
##----------------------------------------------------------------------------##