écriture sécurisée de inc_meta_cache (bug Perline?) + des @ devant getmypid() (au cas où)

ecrire/inc_lang.php3

@@ -12,7 +12,7 @@ function ecrire_cache_lang($lang, $module) {
 	include_ecrire('inc_filtres.php3');
 
 	$fichier_lang = $module.'_'.$lang.'.php3';
-	if ($t = @fopen('CACHE/lang_'.$fichier_lang.'_'.getmypid(), "wb")) {
+	if ($t = @fopen('CACHE/lang_'.$fichier_lang.'_'.@getmypid(), "wb")) {
 		@fwrite($t, "<"."?php\n\n// Ceci est le CACHE d'un fichier langue spip\n\n");
 		if (is_array($cache = $GLOBALS['cache_lang'][$lang])) {
 			@fwrite($t, "\$GLOBALS['i18n_".$module."_$lang'] = array(\n");
@@ -31,7 +31,7 @@ function ecrire_cache_lang($lang, $module) {
 		}
 		@fwrite($t, "\n\n?".">\n");
 		@fclose($t);
-		@rename('CACHE/lang_'.$fichier_lang.'_'.getmypid(), 'CACHE/lang_'.$fichier_lang);
+		@rename('CACHE/lang_'.$fichier_lang.'_'.@getmypid(), 'CACHE/lang_'.$fichier_lang);
 	}
 }
 

ecrire/inc_meta.php3

@@ -72,10 +72,11 @@ function lire_meta_maj($nom) {
 	}
 	$s .= '?'.'>';
 
-	$f = @fopen(($flag_ecrire ? "" : "ecrire/") . "data/inc_meta_cache.php3", "wb");
+	$f = @fopen(($flag_ecrire ? "" : "ecrire/") . "data/inc_meta_cache.php3".@getmypid(), "wb");
 	if ($f) {
-		fputs($f, $s);
-		fclose($f);
+		@fputs($f, $s);
+		@fclose($f);
+		@rename("data/inc_meta_cache.php3".@getmypid(), "data/inc_meta_cache.php3");
 	} else {
 		global $connect_statut;
 		if ($connect_statut == '0minirezo')