Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.