diff --git a/Modules/Part.pm b/Modules/Part.pm index af0626f25473d9488c3ad23b188352a25aca2703..0071b8acee130fca757a7f5aa4c1c4ad5d341e3c 100644 --- a/Modules/Part.pm +++ b/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;