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 | |
| 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.
| -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) { |