From 554ee2efd7d9669b64c548e696a2dc92342464c3 Mon Sep 17 00:00:00 2001
From: patrick-scho <patrick.schoenberger@posteo.de>
Date: Sat, 29 Nov 2025 15:07:10 +0100
Subject: [PATCH] escape \s in double quotes

---
 gitweb/gitweb.perl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index a1c838d..07e5359 100755
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
@@ -7231,7 +7231,7 @@ sub get_markdown {
    my $thash = shift;
    my $rethtmlstr = "";
    use open ":encoding(utf8)"; # needed to have utf8 survive through the shell pipe
-   my $cmd_markdownify = $GIT . " " . git_cmd() . " cat-file blob " . $thash . " | " . $PERL . " -e 'my \$str = do { local \$/; <STDIN> }; \$str =~ s/<!--.*?--\s*>//gs; print \$str;' | " . $MD . " |";
+   my $cmd_markdownify = $GIT . " " . git_cmd() . " cat-file blob " . $thash . " | " . $PERL . " -e 'my \$str = do { local \$/; <STDIN> }; \$str =~ s/<!--.*?--\\s*>//gs; print \$str;' | " . $MD . " |";
    open (FOO, $cmd_markdownify) or die_error(500, "Open git-cat-file blob '$thash' failed");
    while (<FOO>) {
        if ($_ =~ /(<img[^>]src=")(.*?)"/) {
-- 
2.50.1