Euh je ne voudrait pas etre casse-bonbon mais une fonction
sub arg($) {
print STDERR $_;
if ($DEBUG > 0 &&
open(DEBUG_FILE, ">>.\\logs\\debug_TBvir.txt")) {
print DEBUG_FILE $_;
close DEBUG_FILE; # optionnel vu que de toute façons on a un exit qui traine
} else {
print STDERR "Impossible d'ouvrir le fichier de log: $!";
}
exit -1
}
open TOTO, "turc" or arg ("Impossible bidulle, chose $!");
Mais si j'analyse bien ton code tu utilise die mais tu le protege avec eval{}
donc tu ne meurt jamais ??? auquel cas il faut remplacer 'exit -1' par '$retour = -1;'
Un peu etrange tout ca quand meme proteger un die ...
[^] # Re: Désolé, mais...
Posté par -=[ silmaril ]=- (site web personnel) . En réponse au message 2 actions dans un "die". Évalué à 2.
Mais si j'analyse bien ton code tu utilise die mais tu le protege avec eval{}
donc tu ne meurt jamais ??? auquel cas il faut remplacer 'exit -1' par '$retour = -1;'
Un peu etrange tout ca quand meme proteger un die ...