emlcontentfoo: quiet warning on missing attributes

[public-inbox.git] / lib / PublicInbox / EmlContentFoo.pm

diff --git a/lib/PublicInbox/EmlContentFoo.pm b/lib/PublicInbox/EmlContentFoo.pm
index 7472f8d24fc6f3ad2ff4abd9255b58ad7717e148..e6005d290c933b1575bdc795123b6c1ae67ccc79 100644 (file)
--- a/lib/PublicInbox/EmlContentFoo.pm
+++ b/lib/PublicInbox/EmlContentFoo.pm
@@ -190,7 +190,7 @@ sub _process_rfc2231 {
        foreach (keys %{$attribs}) {
                next unless $_ =~ m/^(.*)\*$/;
                my $key = $1;
-               next unless $attribs->{$_} =~ m/^$re_exvalue$/;
+               next unless ($attribs->{$_} // '') =~ m/^$re_exvalue$/;
                my ($charset, $value) = ($1, $2);
                $value =~ s/%([0-9A-Fa-f]{2})/pack('C', hex($1))/eg;
                if (length $charset) {