avoid warning about uninitialized value

diff --git a/bin/pmg-smtp-filter b/bin/pmg-smtp-filter
index 6b3d80d87c821107f0f9e87d41ab892065a68c9a..7f1212c0e32bc8cb5729491b0990c96919d26a37 100755 (executable)
--- a/bin/pmg-smtp-filter
+++ b/bin/pmg-smtp-filter
@@ -673,7 +673,7 @@ sub handle_smtp {
        my $vinfo = PMG::Utils::analyze_virus(
            $queue, $queue->{dataname}, $pmg_cfg, $opt_testmode);
 
-       if ($vinfo =~ m/^Safebrowsing\.(.+)$/) {
+       if ($vinfo && $vinfo =~ m/^Safebrowsing\.(.+)$/) {
            my $hit = $1;
            $self->log(3, "$queue->{logid}: Google Safe Browsing database hit '%s'", $hit);
            $queue->{safe_browsing} = $hit;