J'aimerais sortir du sous-programme en cas d'erreur. J'ai essayé avec return mais cela ne fonctionne pas et la suite du sous-programme s'exécute. Comment dois-je faire?

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
16
17
18
sub Execute_merge {
 
	my ($merge_files_tab, $ref_input_file_list, $output_file_merge, $format) = @_;
 
	# vérification que les fichiers d'entrée existent
	foreach my $input_file (@{$ref_input_file_list}){
		if (! -e $input_file){
			&Error ($merge_files_tab, "Input file : $input_file doesn't exist\n");
			return;
		}
	}
 
 
	# vérification que le format est défini
	if ( ! exists $correspondence{${$format}} ){
		&Error ($merge_files_tab, "Type isn't defined\n");
		return;
	}

Merci,