[-dev] Suppress a few warnings on uninitialized value.

git-svn-id: https://subversion.renater.fr/sympa/branches/sympa-6.2-branch@12419 05aa8bb8-cd2b-0410-b1d7-8918dfa770ce

src/lib/Sympa.pm

@@ -191,6 +191,11 @@ sub request_auth {
     my $cmd   = shift;
     my @param = @_;
 
+    # Suppress warnings on uninitialized value.
+    foreach my $i ((0 .. 1)) {
+        $param[$i] = '' unless defined $param[$i];
+    }
+
     my ($list, $robot);
     if (ref $that eq 'Sympa::List') {
         $list  = $that;