SL/X/Base Workaround für stringify eq

Für 'eq' gibt es in SL::Locale::String eine Überladungsmöglichkeit
für 'ne' leider nicht. Wenn der Test in Base anders logisch kombiniert
wird, gibt es erstmal keine Probleme.
Fehler: triht argument has no overloaded magic

diff --git a/SL/X/Base.pm b/SL/X/Base.pm
index 3e6d251232750669e45e25303e1486a7a7bb1686..5b77bc8eb2d618c4acf54cb0add6a3c0aba1eedf 100644 (file)
--- 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');