Menu: Nur yaml Dateien einlesen

Ansonsten machen Tempdateien von Editoren das Programm kaputt

diff --git a/SL/Menu.pm b/SL/Menu.pm
index 8cc9c7e06071f8a307ea14bd80549f79a15ba831..f01b341be5412eaeb301e059a22c7cee4963572c 100644 (file)
--- 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 $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 = [];
     close $dir;
 
     my $nodes = [];