{"thread":{"id":"4026","subject":"[PATCH] git-send-email: fix version string to be valid perl","startedAt":"2006-05-02T21:44:36Z","lastAt":"2006-05-02T21:44:36Z","messageCount":1,"participants":["Martin Langhoff"],"isPatch":true,"patchVersion":1,"patchTotal":null},"messages":[{"id":"19376","messageId":"11466062762814-git-send-email-martin@catalyst.net.nz","threadId":"4026","inReplyTo":null,"subject":"[PATCH] git-send-email: fix version string to be valid perl","fromName":"Martin Langhoff","fromEmail":"martin@catalyst.net.nz","sentAt":"2006-05-02T21:44:36Z","receivedAt":"2006-05-02T21:44:36Z","isPatch":true,"sender":{"key":"martin@laptop.org","avatar":null},"body":"This makes git-send-email easier to develop and debug, skipping the need\nto `make git-send-email` every time.\n\n---\n\n git-send-email.perl |    9 ++++++++-\n 1 files changed, 8 insertions(+), 1 deletions(-)\n\n1f6dd44e0c919196f9c3d5d617a64111004f24e5\ndiff --git a/git-send-email.perl b/git-send-email.perl\nindex ecfa347..2eb4f6c 100755\n--- a/git-send-email.perl\n+++ b/git-send-email.perl\n@@ -291,6 +291,13 @@ sub send_message\n \tmy $to = join (\",\\n\\t\", @recipients);\n \t@recipients = unique_email_list(@recipients,@cc);\n \tmy $date = strftime('%a, %d %b %Y %H:%M:%S %z', localtime($time++));\n+\tmy $gitversion = '@@GIT_VERSION@@';\n+\tif ($gitversion =~ m/..GIT_VERSION../) {\n+\t    $gitversion = `git --version`;\n+\t    chomp $gitversion;\n+\t    # keep only what's after the last space\n+\t    $gitversion =~ s/^.* //; \n+\t}\n \n \tmy $header = \"From: $from\n To: $to\n@@ -299,7 +306,7 @@ Subject: $subject\n Reply-To: $from\n Date: $date\n Message-Id: $message_id\n-X-Mailer: git-send-email @@GIT_VERSION@@\n+X-Mailer: git-send-email $gitversion\n \";\n \t$header .= \"In-Reply-To: $reply_to\\n\" if $reply_to;\n \n-- \n1.3.0.rc4.ge6bf-dirty\n"}]}