From 298aa1cb63b0fd0f169a6df1efbb65f4a4543f2a Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Tue, 5 Nov 2019 14:00:35 +0100 Subject: [PATCH] Bug in Emacs' Perl-Syntax-Highlighter umschiffen --- SL/Form.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/SL/Form.pm b/SL/Form.pm index 5eb699430..94e2026b3 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -1119,8 +1119,8 @@ sub send_email { if (($self->{format} eq 'html') && ($self->{sendmode} eq 'inline')) { $mail->{content_type} = "text/html"; $mail->{message} =~ s/\r//g; - $mail->{message} =~ s/\n/
\n/g; - $full_signature =~ s/\n/
\n/g; + $mail->{message} =~ s{\n}{
\n}g; + $full_signature =~ s{\n}{
\n}g; $mail->{message} .= $full_signature; open(IN, "<", $self->{tmpfile}) @@ -1130,7 +1130,7 @@ sub send_email { } elsif (($self->{attachment_policy} // '') ne 'no_file') { my $attachment_name = $self->{attachment_filename} || $self->{tmpfile}; - $attachment_name =~ s/\.(.+?)$/.${ext_for_format}/ if ($ext_for_format); + $attachment_name =~ s{\.(.+?)$}{.${ext_for_format}} if ($ext_for_format); if (($self->{attachment_policy} // '') eq 'old_file') { my ( $attfile ) = SL::File->get_all(object_id => $self->{id}, -- 2.20.1