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

diff --git a/gitweb.perl b/gitweb.perl
index 7543059..b04e128 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;
 }
 
@@ -2069,7 +2069,7 @@ sub picon_url {
 	if (!$avatar_cache{$email}) {
 		my ($user, $domain) = split('@', $email);
 		$avatar_cache{$email} =
-			"http://www.cs.indiana.edu/cgi-pub/kinzler/piconsearch.cgi/" .
+			"//www.cs.indiana.edu/cgi-pub/kinzler/piconsearch.cgi/" .
 			"$domain/$user/" .
 			"users+domains+unknown/up/single";
 	}
@@ -2084,7 +2084,7 @@ sub gravatar_url {
 	my $email = lc shift;
 	my $size = shift;
 	$avatar_cache{$email} ||=
-		"http://www.gravatar.com/avatar/" .
+		"//www.gravatar.com/avatar/" .
 			Digest::MD5::md5_hex($email) . "?s=";
 	return $avatar_cache{$email} . $size;
 }