warnings

diff --git a/SL/Menu.pm b/SL/Menu.pm
index 57d8b4e..0fb1b1a 100644 (file)
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -94,7 +94,7 @@ sub access_control {
 
   my @menu = ();
 
-  if ($menulevel eq "") {
+  if (!$menulevel) {
     @menu = grep { !/--/ } @{ $self->{ORDER} };
   } else {
     @menu = grep { /^${menulevel}--/ } @{ $self->{ORDER} };