diff options
author | Frédéric Buclin <LpSolit@netscape.net> | 2024-02-14 18:10:03 +0100 |
---|---|---|
committer | Frédéric Buclin <LpSolit@netscape.net> | 2024-02-14 18:10:03 +0100 |
commit | af88c9b35666d4042a8ccad2b4ca675f3c36ddea (patch) | |
tree | 5a7cff5f7211c69e86f9edd4f22580ee1938cff6 /Bugzilla/MIME.pm | |
parent | 823fa33c1b7be9750c6334e8eb55977419bb984d (diff) | |
download | bugs-master.tar bugs-master.tar.gz bugs-master.tar.bz2 bugs-master.tar.xz bugs-master.zip |
Diffstat (limited to 'Bugzilla/MIME.pm')
-rw-r--r-- | Bugzilla/MIME.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Bugzilla/MIME.pm b/Bugzilla/MIME.pm index 8c6c141bb..d6046198f 100644 --- a/Bugzilla/MIME.pm +++ b/Bugzilla/MIME.pm @@ -14,7 +14,7 @@ use warnings; use parent qw(Email::MIME); sub new { - my ($class, $msg) = @_; + my ($class, $msg, $args) = @_; state $use_utf8 = Bugzilla->params->{'utf8'}; # Template-Toolkit trims trailing newlines, which is problematic when @@ -54,7 +54,7 @@ sub new { # you're running on. See http://perldoc.perl.org/perlport.html#Newlines $msg =~ s/(?:\015+)?\012/\015\012/msg; - return $class->SUPER::new($msg); + return $class->SUPER::new($msg, $args); } sub as_string { @@ -113,7 +113,7 @@ workarounds. =head1 SYNOPSIS use Bugzilla::MIME; - my $email = Bugzilla::MIME->new($message); + my $email = Bugzilla::MIME->new($message, $args); =head1 DESCRIPTION |