--- rpl/src/rpl.c	2012/12/17 21:22:44	1.127
+++ rpl/src/rpl.c	2013/02/26 19:56:17	1.134
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.12
+  Copyright (C) 1989-2013 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)
@@ -588,7 +593,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGINT);
+	raise(SIGINT);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -675,7 +680,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGTERM);
+	raise(SIGTERM);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -762,7 +767,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGALRM);
+	raise(SIGALRM);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -850,7 +855,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGTSTP);
+	raise(SIGTSTP);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -940,7 +945,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGPIPE);
+	raise(SIGPIPE);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -1030,7 +1035,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGUSR1);
+	raise(SIGUSR1);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -2795,7 +2800,7 @@ rplinit(int argc, char *argv[], char *en
 			}
 
 			signal_test = SIGTEST;
-			kill(getpid(), SIGSEGV);
+			raise(SIGSEGV);
 
 			attente.tv_sec = 0;
 			attente.tv_nsec = 1000000;
@@ -2895,7 +2900,7 @@ rplinit(int argc, char *argv[], char *en
 			}
 
 			signal_test = SIGTEST;
-			kill(getpid(), SIGBUS);
+			raise(SIGBUS);
 
 			attente.tv_sec = 0;
 			attente.tv_nsec = 1000000;
@@ -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));