… | … | ||
---|---|---|---|
161 | my $msg = join "", @_; | 161 | my $msg = join "", @_; |
162 | 162 | ||
163 | $msg .= "\n" | 163 | $msg .= "\n" |
164 | unless $msg =~ /\n$/; | 164 | unless $msg =~ /\n$/; |
165 | 165 | ||
166 | $msg =~ s/([\x00-\x09\x0b-\x1f])/sprintf "\\x%02x", ord $1/ge; | 166 | $msg =~ s/([\x00-\x08\x0b-\x1f])/sprintf "\\x%02x", ord $1/ge; |
167 | 167 | ||
168 | utf8::encode $msg; | 168 | utf8::encode $msg; |
169 | LOG llevError, $msg; | 169 | LOG llevError, $msg; |
170 | }; | 170 | }; |
171 | } | 171 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |