X-Git-Url: https://git.ladys.computer/Gitweb/blobdiff_plain/8ed2f8a3ee11810853865c6a45d4c9561d9fff8ad5b83d118bdfb5137eb308bb..5ce6fab6c3d20a7655b5f79665609900cf9ffa2d817900e724a302acc7c8cc8c:/gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 7543059..a42c311 100755
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -1557,7 +1557,7 @@ sub sanitize {
 	return undef unless defined $str;
 
 	$str = to_utf8($str);
-	$str =~ s|([[:cntrl:]])|($1 =~ /[\t\n\r]/ ? $1 : quot_cec($1))|eg;
+	$str =~ s|([[:cntrl:]])|(index("\t\n\r", $1) != -1 ? $1 : quot_cec($1))|eg;
 	return $str;
 }