missing s/@flags/@flagList/

git-svn-id: http://svn.tabris.net/repos/srsv@3535 70d4eda1-72e9-0310-a436-91e5bd24443c

diff --git a/branches/0.5.0/modules/serviceslibs/adminserv.pm b/branches/0.5.0/modules/serviceslibs/adminserv.pm
index 40246b3e5b62092259083e44686af587cc036b0e..29b58d757ba53682dabfa662dea32d127a111871 100644 (file)
--- a/branches/0.5.0/modules/serviceslibs/adminserv.pm
+++ b/branches/0.5.0/modules/serviceslibs/adminserv.pm
@@ -61,7 +61,7 @@ my @flagList = (
 );
 
 for(my $i = scalar(@flagList) - 1; $i >= 0; $i--) {
-       $flags{$flags[$i]} = 1 << $i;
+       $flags{$flagList[$i]} = 1 << $i;
 }
 $allflags = (1 << scalar(@flagList)) - 1;