--- rpl/src/rpl.c	2012/12/17 21:22:44	1.127
+++ rpl/src/rpl.c	2013/02/23 18:32:15	1.132
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
+  RPL/2 (R) version 4.1.12
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -273,6 +273,11 @@ rplinit(int argc, char *argv[], char *en
 	pthread_mutex_init(&mutex_sections_critiques, &attributs_mutex);
 	pthread_mutexattr_destroy(&attributs_mutex);
 
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
+	pthread_mutex_init(&mutex_liste_variables_partagees, &attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
 #	ifndef SEMAPHORES_NOMMES
 		sem_init(&((*s_etat_processus).semaphore_fork), 0, 0);
 #	else
@@ -430,11 +435,11 @@ rplinit(int argc, char *argv[], char *en
 
 	if ((*s_etat_processus).langue == 'F')
 	{
-		printf("+++Copyright (C) 1989 à 2011, 2012 BERTRAND Joël\n");
+		printf("+++Copyright (C) 1989 à 2012, 2013 BERTRAND Joël\n");
 	}
 	else
 	{
-		printf("+++Copyright (C) 1989 to 2011, 2012 BERTRAND Joel\n");
+		printf("+++Copyright (C) 1989 to 2012, 2013 BERTRAND Joel\n");
 	}
 
 	if (getenv("HOME") != NULL)
@@ -6039,6 +6044,7 @@ rplinit(int argc, char *argv[], char *en
 	pthread_mutex_destroy(&((*s_etat_processus).mutex));
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation));
 	pthread_mutex_destroy(&mutex_sections_critiques);
+	pthread_mutex_destroy(&mutex_liste_variables_partagees);
 
 #	ifndef SEMAPHORES_NOMMES
 	sem_post(&((*s_etat_processus).semaphore_fork));