warning : subroutine redefined

Bonjour,

j'ai réalisé un script qui charge dynamiquement des modules via les instructions suivantes:

Code:

---

1 2 3 4

# CHARGEMENT DU MODULE # require $module_name.".pm"; $module_name->import();

---

Dans mes modules, j'exporte les fonctions de cette manière :

Code:

---

1 2 3 4 5 6

use Exporter;   # Exportation des fonctions our @ISA = ('Exporter'); our @EXPORT = qw (&initialize &terminate &launch_check &get_errors_id &get_errors_lines &get_errors_files &get_errors_info_supp);

---

Lors de l'exécution, tout se passe bien, le mécanisme marche, mais ma console est parasitée de warnings :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Subroutine main::initialize redefined at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 432 main::main() called at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 547 Subroutine main::terminate redefined at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 432 main::main() called at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 547 Subroutine main::launch_check redefined at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 432 main::main() called at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 547 Subroutine main::get_errors_id redefined at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 432 main::main() called at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 547 Subroutine main::get_errors_lines redefined at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 432 main::main() called at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 547 Subroutine main::get_errors_files redefined at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 432 main::main() called at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 547 Subroutine main::get_errors_info_supp redefined at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 432 main::main() called at E:\DEVELOPPEMENT\POLUX\Scripts\Checker GPC-DSD\Exe\checker.pl line 547

---

Impossible de les désactiver ou de les solutionner. Quelqu'un aurait une solution ?

Je me demande si il n'y a pas une autre façon d'exporter...

Merci d'avance.

Quel est le contenu des lignes 432 et 547 du fichier checker.pl ?

met ton bout de code dans un bloc avec no warnings "redefine"; :

Code:

---

1 2 3 4 5 6

{ no warnings qw/redefine/; # CHARGEMENT DU MODULE # require $module_name.".pm"; $module_name->import(); }

---

Lis "perldoc perllexwarn" pour plus de détails sur les merveilles des warnings à portée lexicale (très pratique parfois pour relaxer les règles proprement).

--
Jedaï