From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 5 Nov 2019 13:00:35 +0000 (+0100)
Subject: Bug in Emacs' Perl-Syntax-Highlighter umschiffen
X-Git-Tag: release-3.5.6.1~245^2~38
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=298aa1cb63b0fd0f169a6df1efbb65f4a4543f2a;p=kivitendo-erp.git

Bug in Emacs' Perl-Syntax-Highlighter umschiffen
---

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/<br>\n/g;
-    $full_signature         =~ s/\n/<br>\n/g;
+    $mail->{message}        =~ s{\n}{<br>\n}g;
+    $full_signature         =~ s{\n}{<br>\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},