diff options
author | Eric Wong <e@yhbt.net> | 2020-05-09 08:27:38 +0000 |
---|---|---|
committer | Eric Wong <e@yhbt.net> | 2020-05-09 20:27:37 +0000 |
commit | a0b53e7c83c2773ba80fdd188ad5537a0408f997 (patch) | |
tree | 91c3773867e5f42a49797621fc0db7ac1eee0539 /lib | |
parent | e07a58aa1a1118b2aeb75e674c3542ae5d93b2c9 (diff) | |
download | public-inbox-a0b53e7c83c2773ba80fdd188ad5537a0408f997.tar.gz |
This bug was also present in Email::MIME::ContentType: commit ae081fb576d8507efca4928116ad81efa756c723 (refs/pull/pull/9/head) in https://github.com/rjbs/Email-MIME-ContentType.git Our fix is shorter, but dependent on 5.10+ as our codebase relies on Perl 5.10 features, anyways.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/PublicInbox/EmlContentFoo.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/EmlContentFoo.pm b/lib/PublicInbox/EmlContentFoo.pm index 7472f8d2..e6005d29 100644 --- 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) { |