X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4a852cb1ba0225e6e086786d3950fc7a3c068f38..1f7b26048829f9a9622b06e2c106ae2a4f18442e:/SL/X/Base.pm

diff --git a/SL/X/Base.pm b/SL/X/Base.pm
index 3e6d25123..5b77bc8eb 100644
--- a/SL/X/Base.pm
+++ b/SL/X/Base.pm
@@ -12,7 +12,7 @@ sub message { goto &error }
 sub error {
   my ($self, @params) = @_;
 
-  return $self->{message} if ($self->{message} // '') ne '';
+  return $self->{message} unless ($self->{message} // '') eq '';
 
   return $self->SUPER::error(@params) if !$self->can('_defaults');