diff options
| author | Oliver Tappe | 2008-05-24 15:48:15 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2008-05-24 15:48:15 +0200 |
| commit | 3d1540c2f787c88e461fd8eede91b37411f643c8 (patch) | |
| tree | c5d8ad048289e52d487784dd448a07dc0fbb0550 /lib | |
| parent | * added checking of attributes for every client & system before its attribute... (diff) | |
| download | core-3d1540c2f787c88e461fd8eede91b37411f643c8.tar.gz core-3d1540c2f787c88e461fd8eede91b37411f643c8.tar.xz core-3d1540c2f787c88e461fd8eede91b37411f643c8.zip | |
* make sure to remove all warning- and error-indicator strings already contained
in message before adding a new one
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1791 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib')
| -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; } |