modif Perl/test.pl : une ultime correction pour gerer les tests pour lesquels il y a des RESTART

Perl/test.pl

@@ -1222,10 +1222,16 @@ sub lancement_commande {
     foreach my $cmd (@commandes) {
       next if(not $cmd =~ /^(\S+)\.info$/);
       $racine_finfo = $1;
-      
+
       $racine_lien_symbolique_finfo = "$racine_finfo".int(rand(99999999999));
-      #creation du lien symbolique
+      #creation du lien symbolique .info
       system("ln -s $racine_finfo.info $racine_lien_symbolique_finfo.info");
+
+      #  si un RESTART doit etre fait, il faut renommer les .BI et .PI
+      system("mv -f $racine_finfo.BI $racine_lien_symbolique_finfo.BI") if(-e "$racine_finfo.BI");
+      #idem pour le .PI
+      system("mv -f $racine_finfo.PI $racine_lien_symbolique_finfo.PI") if(-e "$racine_finfo.PI");
+ 
       $cmd = "$racine_lien_symbolique_finfo.info";#remplacement du nom .info par "$racine_lien_symbolique_finfo.info" dans @commandes
       last;
     }
@@ -1250,6 +1256,7 @@ sub lancement_commande {
   #lancement du calcul Herezh dans un pipe
   #  rq : redirection de l affichage dans le fichier $fredir_tee
   ##############################################################
+
   open(PIPE, "|tcsh -c \"time ./$lien_symbolique_HZ $commande\" | tee $fredir_tee");
   PIPE->autoflush(1);#forcer a vider le tampon (methode autoflush du package IO::Handle)
 
@@ -1533,7 +1540,6 @@ sub lancement_commande {
   # => il faut les renommer (notamment on aura besoin du .BI et .PI si on doit faire des restarts pour les prochaines .CVisu[i],  du _princ.maple pour la comparaison et meme des fichiers _Gmsh un jour peut-etre)
   renommage_arborescence('.', $racine_lien_symbolique_finfo, $racine_finfo);
 
-
   return $status_calcul;
 
 }#sub lancement_commande