I'm not entirely sure where the behavior change lies, but it seems to be in some of the latest CPAN versions of these modules. In any case, this only affects the test setup and not actual behavior.
cf. https://public-inbox.org/meta/[email protected]/ --- t/content_id.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/t/content_id.t b/t/content_id.t index 01ce65e..990eabe 100644 --- a/t/content_id.t +++ b/t/content_id.t @@ -23,11 +23,11 @@ my $reload = content_id(Email::MIME->new($mime->as_string)); is($orig, $reload, 'content_id matches after serialization'); foreach my $h (qw(From To Cc)) { - my $n = '"Quoted N\'Ame" <[email protected]>'; - $mime->header_str_set($h, "$n"); + my $n = q("Quoted N'Ame" <[email protected]>); + $mime->header_set($h, "$n"); my $q = content_id($mime); - is($n, $mime->header($h), "content_id does not mutate $h:"); - $mime->header_str_set($h, 'Quoted N\'Ame <[email protected]>'); + is($mime->header($h), $n, "content_id does not mutate $h:"); + $mime->header_set($h, 'Quoted N\'Ame <[email protected]>'); my $nq = content_id($mime); is($nq, $q, "quotes ignored in $h:"); } -- unsubscribe: [email protected] archive: https://public-inbox.org/meta/
