]> wagnertech.de Git - mfinanz.git/commitdiff
debug enter/leave_sub balanciert
authorSven Schöling <s.schoeling@linet-services.de>
Wed, 17 Oct 2012 13:56:26 +0000 (15:56 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Wed, 17 Oct 2012 13:56:51 +0000 (15:56 +0200)
SL/Menu.pm
bin/mozilla/menu.pl

index 844e3f56f349c7db718a87297c2e87184ab200f6..eac4e2fe611081d605aba027aeafbe41a11c7761 100644 (file)
@@ -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);
index f6e7c7faec5c5dace60c8e423cbd10dbc43d99cc..afdedf9985d4272c2138608dc263795773050ce7 100644 (file)
@@ -53,6 +53,7 @@ sub render {
 
   my $sections = [ section_menu($menu) ];
 
+  $::lxdebug->leave_sub;
   $::form->parse_html_template('menu/menu', {
     sections  => $sections,
     inline    => 1,