warnings

diff --git a/SL/Menu.pm b/SL/Menu.pm
index 57d8b4e8aa059b1ac044bac668e5df8dfb17f78f..0fb1b1a959851e9d2f5a970627b9ae6fd87232c2 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} };