diff options
Diffstat (limited to 'lib/OpenSLX/Basics.pm')
| -rw-r--r-- | lib/OpenSLX/Basics.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm index ec043e91..4b40269e 100644 --- a/lib/OpenSLX/Basics.pm +++ b/lib/OpenSLX/Basics.pm @@ -805,11 +805,11 @@ sub _doThrowOrWarn # use '°°°' for warnings and '***' for errors if ($type eq 'carp' || $type eq 'warn' || $type eq 'cluck') { - $msg =~ s[^! ][]igms; + $msg =~ s[^(! |\*\*\*) ][]igms; $msg =~ s[^][! ]igms; } else { - $msg =~ s[^\*\*\* ][]igms; + $msg =~ s[^(! |\*\*\*) ][]igms; $msg =~ s[^][*** ]igms; } |