Explicitation d'un nom de variable

Modules/Part.pm

@@ -21,9 +21,11 @@ sub part_main
 		{
 			# On enlève le chan de la liste des chans 
 			# où on est s'il est dans cette liste
-			Chans::chan_del($ref_params->[0]);
+			my $chan = lc shift @{$ref_params};
 			
-			$self->part(shift @{$ref_params});
+			Chans::chan_del($chan);
+			
+			$self->part($chan);
 		}
 		
 		return 1;