Discussion :

[Dimension_N]

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.

[Invité]

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

[Jedai]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï