From 9218e5a1c7e997b02f2b44033980f3bd1f33f670 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Wed, 17 Oct 2012 15:56:26 +0200
Subject: [PATCH] debug enter/leave_sub balanciert

---
 SL/Menu.pm          | 5 ++++-
 bin/mozilla/menu.pl | 1 +
 2 files changed, 5 insertions(+), 1 deletion(-)

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);
diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl
index f6e7c7fae..afdedf998 100644
--- a/bin/mozilla/menu.pl
+++ b/bin/mozilla/menu.pl
@@ -53,6 +53,7 @@ sub render {
 
   my $sections = [ section_menu($menu) ];
 
+  $::lxdebug->leave_sub;
   $::form->parse_html_template('menu/menu', {
     sections  => $sections,
     inline    => 1,
-- 
2.20.1