X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/bf7f935de20f360843aa2a7b1e4563248766de8a..9596d4a4c336419ea3259932847d980bf391af2f:/SL/Menu.pm diff --git a/SL/Menu.pm b/SL/Menu.pm index 8cc9c7e06..f01b341be 100644 --- a/SL/Menu.pm +++ b/SL/Menu.pm @@ -21,7 +21,7 @@ sub new { my $path = File::Spec->catdir('menus', $domain); opendir my $dir, $path or die "can't open $path: $!"; - my @files = sort grep -f "$path/$_", readdir $dir; + my @files = sort grep -f "$path/$_", grep /\.yaml$/, readdir $dir; close $dir; my $nodes = [];