j'utilise pas en fait et je desactive le debug (il part bientot

pad-ffdn.pl

@@ -21,7 +21,7 @@ use Switch;
 use feature 'say';
 use List::Util qw (shuffle);
 
-my $debug = 1;
+my $debug = 0;
 my $pad_dir = `pwd`; chomp $pad_dir ; $pad_dir .= "/";
 
 my @membres = ("Apinnet",
@@ -79,7 +79,6 @@ switch ($nummois) {
     case "11" { $mois = "Novembre"}
     case "12" { $mois = "Décembre"}
 }
-$line = undef;
 say "Quel est le lien de la réunion précédente ?";
 my $padprecedent= <> ; chomp $padprecedent;
 say $padprecedent if ($debug);