From 147895867930df9c19372b32490ddc0f620938e5 Mon Sep 17 00:00:00 2001
From: TC <tc.arise@giboulees.net>
Date: Thu, 6 Feb 2014 22:10:18 +0000
Subject: [PATCH] Explicitation d'un nom de variable
---
Modules/Part.pm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/Modules/Part.pm b/Modules/Part.pm
index af0626f..0071b8a 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;
--
GitLab