ok merci pour les infos :)
j'ai un peu modifié mon fonctionnement ... maintenant je ré-écris le fonctionnement de die en début de fichier
local $SIG{'__DIE__'} = sub { if($DEBUG==1){
open(DEBUG_FILE,">>.\\logs\\debug_TBvir.txt")or die $!;
print DEBUG_FILE "SUB_RAPATRIEMENT_LOGS ==> $_[0]\n";
close DEBUG_FILE;
}
$retour = -1;
die $_[0];
};
avec $retour qui est un pointeur vers mon interface (donc pas de soucis sur les 8 bit du return ;) )
et j'appel mon die comme ca :
open-gnagnagna or eval{die"Impossible de copier le fichier $fichier_source... $!"};
et hop ca marche comme je veux :) merci de vos aides
[^] # Re: Désolé, mais...
Posté par jve . En réponse au message 2 actions dans un "die". Évalué à 1.
local $SIG{'__DIE__'} = sub { if($DEBUG==1){ open(DEBUG_FILE,">>.\\logs\\debug_TBvir.txt")or die $!; print DEBUG_FILE "SUB_RAPATRIEMENT_LOGS ==> $_[0]\n"; close DEBUG_FILE; } $retour = -1; die $_[0]; };avec $retour qui est un pointeur vers mon interface (donc pas de soucis sur les 8 bit du return ;) ) et j'appel mon die comme ca :open-gnagnagna or eval{die"Impossible de copier le fichier $fichier_source... $!"};et hop ca marche comme je veux :) merci de vos aides