@@ -112,7 +112,7 @@ sub adh {
# lis le fichier et retourne le contenu
sub lecture_fichier {
- my $fichier;
+ my $fichier = shift @_;
my $filename = $dir.$fichier;
if (-e $filename)
{
