add--interactive: quote commentChar regex

diff --git a/git-add--interactive.perl b/git-add--interactive.perl
index 7c953247379c77bf49fd6806648bfee99c134471..395dd5eb4b83377f59b486f7b483bf2103efcdec 100755 (executable)
--- a/git-add--interactive.perl
+++ b/git-add--interactive.perl
@@ -1097,7 +1097,7 @@ sub edit_hunk_manually {
 
        open $fh, '<', $hunkfile
                or die sprintf(__("failed to open hunk edit file for reading: %s"), $!);
-       my @newtext = grep { !/^$comment_line_char/ } <$fh>;
+       my @newtext = grep { !/^\Q$comment_line_char\E/ } <$fh>;
        close $fh;
        unlink $hunkfile;