fix use of uninitialized value

[pmg-api.git] / PMG / API2 / Quarantine.pm

diff --git a/PMG/API2/Quarantine.pm b/PMG/API2/Quarantine.pm
index a51cf1e283bdf1c72e2f479336456c044f3ed114..db1822f631535917c15c6a41c8f494e0d65902b7 100644 (file)
--- a/PMG/API2/Quarantine.pm
+++ b/PMG/API2/Quarantine.pm
@@ -57,14 +57,15 @@ my $verify_optional_pmail = sub {
 sub decode_spaminfo {
     my ($info) = @_;
 
+    my $res = [];
+    return $res if !defined($info);
+
     my $saversion = Mail::SpamAssassin->VERSION;
 
     my $salocaldir = "/var/lib/spamassassin/$saversion/updates_spamassassin_org";
 
     $spamdesc = PMG::Utils::load_sa_descriptions([$salocaldir]) if !$spamdesc;
 
-    my $res = [];
-
     foreach my $test (split (',', $info)) {
        my ($name, $score) = split (':', $test);