[Mail::Header] modify = 1 and trail whitespaces

[targzeta]

Hi, when the modify attribute is on, the final whitespaces are deleted. It is the right thing?

use Mail::Header;

my $head = Mail::Header->new();
$head->modify(0);
$head->add(Subject => 'Test   ');

$head->modify(1);
$head->add(Subject => 'Test   ');

print $head->as_string();

$> perl test.pl | cat -E
Subject: Test   $
Subject: Test$

Thank you in advance, Emanuele