Properly initialize $cur_level variable in WellWell::Menu in order to…

… avoid Perl warnings.
interchange · Sep 11, 2010 · 2a1a471 · 2a1a471
1 parent e14efba
commit 2a1a471
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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];