Funktionsnamensauflösung: Übersetzung vor Nachschlagen so umwandeln, wie sie auch...

Ansonsten werden Funktionen nicht gefunden, deren Übersetzung
Leerzeichen enthält (z.B. "PDF exportieren"). Der Hash-Key dafür ist
$self->{texts_reverse}->{"pdf_exportieren"}, aber der Lookup geschieht
gegen $self->{texts_reverse}->{"pdf exportieren"}.

diff --git a/SL/Locale.pm b/SL/Locale.pm
index e2d3744..e996739 100644 (file)
--- a/SL/Locale.pm
+++ b/SL/Locale.pm
@@ -232,6 +232,7 @@ sub findsub {
 
   my ($self, $text) = @_;
   my $text_rev      = lc $self->{iconv_reverse}->convert($text);
+  $text_rev         =~ s/[\s\-]+/_/g;
 
   if (!$self->{texts_reverse}) {
     $self->{texts_reverse} = { };