Merge pull request #741 from salaun-urennes1/fix-undefined-value-with…

…-modify-list by salaun-urennes1 Fix errors 'Can't use an undefined value as an ARRAY reference' while running sympa.pl --modify_list
sympa-community · Sep 11, 2019 · 4893ee4 · 4893ee4
2 parents c34ea0d + 55e1afe
commit 4893ee4
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/sbin/sympa.pl.in b/src/sbin/sympa.pl.in
@@ -987,15 +987,19 @@ elsif ($main::options{'modify_list'}) {
         "\n************************************************************\n";
 
     unless (defined $result->{'ok'}) {
-        printf STDERR "\n%s\n", join("\n", @{$result->{'string_info'}});
         print STDERR "\nThe action has been stopped because of error :\n";
-        printf STDERR "\n%s\n", join("\n", @{$result->{'string_error'}});
+        if (defined $result->{'string_error'} && (ref($result->{'string_error'}) eq 'ARRAY')) {
+            printf STDERR "\n%s\n", join("\n", @{$result->{'string_error'}});
+	}
         exit 1;
     }
 
     close INFILE;
 
-    printf STDOUT "\n%s\n", join("\n", @{$result->{'string_info'}});
+    if (defined $result->{'string_info'} && (ref($result->{'string_info'}) eq 'ARRAY')) {
+         printf STDOUT "\n%s\n", join("\n", @{$result->{'string_info'}});
+    }
+
     exit 0;
 }