[wellwell-devel] [wellwell] Properly initialize $cur_level variable in WellWell::Menu in order to avoid
Stefan Hornburg
wellwell-devel at rt.icdevgroup.org
Wed Sep 15 10:44:52 UTC 2010
commit 2a1a47169667827ca9ec26f90193e90fea5fdc29
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date: Sat Sep 11 13:36:20 2010 +0200
Properly initialize $cur_level variable in WellWell::Menu in order to avoid
Perl warnings.
lib/WellWell/Menu.pm | 3 +++
1 files changed, 3 insertions(+), 0 deletions(-)
---
diff --git a/lib/WellWell/Menu.pm b/lib/WellWell/Menu.pm
index abf6a19..e54fd40 100644
--- a/lib/WellWell/Menu.pm
+++ b/lib/WellWell/Menu.pm
@@ -81,6 +81,9 @@ sub build_entries {
$entries_ref = sort_tree_entries($entries_ref);
$cur_level = $entries_ref->[0]->{level};
}
+ else {
+ $cur_level = 0;
+ }
for (my $i = 0; $i < @$entries_ref; $i++) {
$ref = $entries_ref->[$i];
More information about the wellwell-devel
mailing list