fix eval typo
authorDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 6 Jul 2011 16:06:24 +0000 (18:06 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 6 Jul 2011 16:06:24 +0000 (18:06 +0200)
lib/APKPM/CPE.pm

index a790279..97c2f1f 100644 (file)
@@ -68,7 +68,7 @@ sub poll : Job : Encode(e_json) {
                my $n = $k;
                $n =~ s/^CPE\.//;
                $n =~ s/\./_/g;
                my $n = $k;
                $n =~ s/^CPE\.//;
                $n =~ s/\./_/g;
-               $poll->{$n} = eval { $redis->scard($k) } || $redis->get($k);
+               $poll->{$n} = eval { $redis->scard($k) } || $redis->get($k) };
        }
 
        warn "# poll = ",dump $poll;
        }
 
        warn "# poll = ",dump $poll;