petit bug corrigé

unefede.pl

@@ -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)
     {