Modul- und Funktionsnamen müssen mit einem Buchstaben beginnen

[mfinanz.git] / SL / Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 76d49b5f8070410a20d20069170ee7967d9cc17d..3b64e48c3b82ed7c58fc6a87c8841555ff41473e 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -206,18 +206,18 @@ sub _route_request {
 }
 
 sub _route_dispatcher_request {
-  my $action_re = '[a-z0-9_\-]+';
+  my $name_re = qr{[a-z]\w*};
   my ($script_name, $action);
 
   eval {
-    die "Unroutable request -- inavlid module name.\n" if !$::form->{M} || ($::form->{M} !~ m/^$action_re$/);
+    die "Unroutable request -- inavlid module name.\n" if !$::form->{M} || ($::form->{M} !~ m/^${name_re}$/);
     $script_name = $::form->{M} . '.pl';
 
     if ($::form->{A}) {
       $action = $::form->{A};
 
     } else {
-      $action = first { m/^A_${action_re}$/ } keys %{ $::form };
+      $action = first { m/^A_${name_re}$/ } keys %{ $::form };
       die "Unroutable request -- inavlid action name.\n" if !$action;
 
       delete $::form->{$action};