Merci beaucoup.

J'ai remplacé le if litigieux par

if (! defined (open(FICHIERIN, "C:\\Perl\\MesProgrPerl\\Debug.pl")) )

et maintenant, il n'y a plus d'avertissement (et le résultat est conforme aux attentes).

Curieusement, même quand j'avais écrit le if comme si undef était la même chose que la valeur nulle, le résultat était aussi conforme aux attentes, à l'avertissement près.

Donc l'avertissement provenait sûrement de ce que vous avez diagnostiqué.

Je n'aurais pas d'objection à vous montrer le code réel qui a provoqué l'avertissement, mais puisque mes nouveaux essais montrent que le problème était bien celui que vous avez vu, c'est peut-être inutile.

Cette instruction fait partie d'une longue routine qui fait intervenir Perl Tk et de nombreuses routines définies par moi.

Mais je répète que je n'ai pas d'objections à l'afficher si vous me dites que vous trouvez vraiment que cela en vaut la peine.

Vous pourrez me dire s'il y a d'autres " mauvaises pratiques "...

En tout cas, grand merci.