Funktionsnamensauflösung gefixt

[mfinanz.git] / SL / Locale.pm

diff --git a/SL/Locale.pm b/SL/Locale.pm
index 28b13c696f1a2d96ad189ad5481bff1c03abd63c..9e74902ca21d5f13e2b072d955ec5d798d0a0291 100644 (file)
--- a/SL/Locale.pm
+++ b/SL/Locale.pm
@@ -239,8 +239,9 @@ sub findsub {
     }
   }
 
-  my $sub_name   = first { defined &{ "::$_" } } @{ $self->{texts_reverse}->{$text_rev} } if $self->{texts_reverse}->{$text_rev};
-  $sub_name    ||= $text_rev if ($text_rev =~ m/^[a-z][a-z0-9_]+$/) && defined &{ "::$text_rev" };
+  my $sub_name;
+  $sub_name   = first { defined(&{ "::${_}" }) } @{ $self->{texts_reverse}->{$text_rev} } if $self->{texts_reverse}->{$text_rev};
+  $sub_name ||= $text_rev if ($text_rev =~ m/^[a-z][a-z0-9_]+$/) && defined &{ "::${text_rev}" };
 
   $main::form->error("$text not defined in locale/$self->{countrycode}/all") if !$sub_name;