[project @ 2003-07-15 13:04:33 by ajt]

add some brackets for keys(%limit_pkgs)

diff --git a/scripts/service.in b/scripts/service.in
index 1781ebac986d9997177353322d6ebcd0e5640fbb..ffae9b164a78cc865eee38f9aab615ea45e5937d 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.80 2003/07/15 13:03:33 ajt Exp $
+# $Id: service.in,v 1.81 2003/07/15 13:04:33 ajt Exp $
 # ^ more or less ^
 #
 # Usage: service <code>.nn
@@ -782,7 +782,7 @@ sub setbug {
         return 0;
     }
 
-    if (keys %limit_pkgs && not defined $limit_pkgs{$data->{package}}) {
+    if (keys(%limit_pkgs) && not defined $limit_pkgs{$data->{package}}) {
        &transcript("$gBug number $ref belongs to package $data->{package}, skipping.\n\n");
        &cancelbug;
        return 0;