X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d2c9cb3b30efe5842aa1118c7cc84eb61c9c5279..e97c628d0f75459a88926c33e4b370aa98c6b680:/SL/Menu.pm

diff --git a/SL/Menu.pm b/SL/Menu.pm
index 844e3f56f..eac4e2fe6 100644
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -46,7 +46,10 @@ sub new {
 
   my ($type, $menufile) = @_;
 
-  return $instance if $instance;
+  if ($instance) {
+    $::lxdebug->leave_sub;
+    return $instance;
+  }
 
   my $self    = {};
   my $inifile = Inifile->new($menufile);