X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/92770ef6e894ce0780472c1f0895c416b7aca164..fb974d9c26db844c754b75506a28f3ca9f5522ca:/SL/Menu.pm

diff --git a/SL/Menu.pm b/SL/Menu.pm
index d72bb3619..1ecb52fab 100644
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -3,10 +3,15 @@ package SL::Menu;
 use strict;
 
 use SL::Auth;
-use YAML::XS ();
+use YAML ();
 use File::Spec;
 use SL::MoreCommon qw(uri_encode);
 
+our $yaml_xs;
+BEGIN {
+   $yaml_xs =  eval { require YAML::XS };
+}
+
 sub new {
   my ($package, $domain) = @_;
 
@@ -19,7 +24,12 @@ sub new {
   my $nodes = [];
   my $nodes_by_id = {};
   for my $file (@files) {
-    my $data = YAML::XS::LoadFile(File::Spec->catfile($path, $file));
+    my $data;
+    if ($yaml_xs) {
+      $data = YAML::XS::LoadFile(File::Spec->catfile($path, $file));
+    } else {
+      $data = YAML::LoadFile(File::Spec->catfile($path, $file));
+    }
     _merge($nodes, $nodes_by_id, $data);
   }