From 0aa7fae5d5ccc71132c9d8845cf4ebadb4dff1b5 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 26 Sep 2010 11:25:55 +0200
Subject: fix error o nget

---
 lib/jitterbug.pm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'lib/jitterbug.pm')

diff --git a/lib/jitterbug.pm b/lib/jitterbug.pm
index e4ebab2..0d27a85 100644
--- a/lib/jitterbug.pm
+++ b/lib/jitterbug.pm
@@ -17,17 +17,18 @@ get '/' => sub {
     my @projects  = ();
 
     foreach (@proj_name) {
-        my $proj = redis->get(key_project($_));
+        my $proj = redis->get( key_project($_) );
         next unless $proj;
         debug("on a $proj");
         my $desc = from_json($proj);
         my @ids  = redis->smembers( key_builds_project($_) );
-        my $res  = redis->get( pop @ids );
-        if ($res) {
-            my $last_build = from_json($res);
-            $desc->{last_build} = $last_build;
-        }
-        push @projects, $desc;
+        if(@ids) {
+            my $res = redis->get( pop @ids );
+              if ($res) {
+                my $last_build = from_json($res);
+                $desc->{last_build} = $last_build;
+            }
+        } push @projects, $desc;
     }
 
     @projects =
-- 
cgit 1.4.1