git-send-email.perl: Handle shell metacharacters in $EDITOR properly

diff --git a/git-send-email.perl b/git-send-email.perl
index 9e568bf9c012b610fd8db7e4444cb7ff8c6e0a0f..b50239636dab4a5f64f4c3d4f8321fc954b3f1a1 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -512,7 +512,7 @@ sub expand_aliases {
        close(C);
 
        my $editor = $ENV{GIT_EDITOR} || Git::config(@repo, "core.editor") || $ENV{VISUAL} || $ENV{EDITOR} || "vi";
-       system('sh', '-c', '$0 $@', $editor, $compose_filename);
+       system('sh', '-c', $editor.' "$@"', $editor, $compose_filename);
 
        open(C2,">",$compose_filename . ".final")
                or die "Failed to open $compose_filename.final : " . $!;