--- rpl/src/gestion_fichiers.c 2010/01/27 22:22:10 1.2 +++ rpl/src/gestion_fichiers.c 2010/02/12 13:52:01 1.4 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.10 + RPL/2 (R) version 4.0.11 Copyright (C) 1989-2010 Dr. BERTRAND Joël This file is part of RPL/2. @@ -312,7 +312,7 @@ caracteristiques_fichier(struct_processu (*ouverture) = d_faux; (*existence) = d_faux; - if ((descripteur = open(nom, O_CREAT | O_EXCL)) == -1) + if ((descripteur = open(nom, O_CREAT | O_EXCL, S_IRUSR | S_IWUSR)) == -1) { if (errno == EEXIST) {