From 780f189cd4384f232df941defde32c27c68c070a Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Tue, 24 Sep 2013 20:18:23 +0200
Subject: [PATCH] Tag the good commit

---
 hooks/subjects.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/hooks/subjects.pl b/hooks/subjects.pl
index 67393da..3d5ec03 100755
--- a/hooks/subjects.pl
+++ b/hooks/subjects.pl
@@ -109,7 +109,7 @@ sub tag_defense
 	$path = qx(git ls-tree -r --name-only $ARGV[2] defenses/ | egrep '\.xml\$');
 	my $nb_defenses = $path =~ tr/\n//;
 	if ($nb_defenses > 1) {
-	    log ERROR, "Veuillez préciser le chemin de la soutenance à utiliser avec un tag : defense,$_[1],$_[2],file_to_use";
+	    log ERROR, "Veuillez préciser le chemin de la soutenance à utiliser avec un tag : defense,", $_[1] // "", ",", $_[2] // "", ",file_to_use";
 	    exit 1;
 	}
 	elsif ($nb_defenses == 0) {
@@ -182,7 +182,7 @@ sub tag_defense
 
 	if ($long_tag)
 	{
-	    qx(git tag -f $long_tag);
+	    qx(git tag -f $long_tag $newref);
 	    if (! $?) {
 		log INFO, "Tag long créé : $long_tag.";
 	    }
@@ -273,7 +273,7 @@ sub tag_grades
 
 	if ($long_tag)
 	{
-	    qx(git tag -f $long_tag);
+	    qx(git tag -f $long_tag $newref);
 	    if (! $?) {
 		log INFO, "Tag long créé : $long_tag.";
 	    }
@@ -436,7 +436,7 @@ sub tag_project
 
 	if ($long_tag)
 	{
-	    qx(git tag -f $long_tag);
+	    qx(git tag -f $long_tag $newref);
 	    if (! $?) {
 		log INFO, "Tag long créé : $long_tag.";
 	    }
@@ -547,7 +547,7 @@ sub tag_ref
 
 	if ($long_tag)
 	{
-	    qx(git tag -f $long_tag);
+	    qx(git tag -f $long_tag $newref);
 	    if (! $?) {
 		log INFO, "Tag long créé : $long_tag.";
 	    }