From 5fd61f6d848b0781f60b617ebceb588aebc13033 Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
Date: Sun, 21 Feb 2010 06:47:21 -0800
Subject: [PATCH] message module name and versions

---
 plugins/git_site_perl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/plugins/git_site_perl b/plugins/git_site_perl
index 64d3bfeb2..1a244c93f 100644
--- a/plugins/git_site_perl
+++ b/plugins/git_site_perl
@@ -29,8 +29,9 @@ hook install_success => sub {
     if (-e $site_perl && -w _) {
         my $cwd = Cwd::cwd();
         chdir $site_perl or die $!;
+        my $message = "$args->{meta}->{name} $args->{meta}->{version} ($args->{module})";
         $args->{app}->run("git add .") &&
-        $args->{app}->run("git commit -m " . Util::quote($args->{module}));
+        $args->{app}->run("git commit -m " . Util::quote($message));
         chdir $cwd;
     }
 };