From df3b650e9d9829ba4093a8b637c1c670c982884f Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@mysociety.org>
Date: Thu, 15 Sep 2011 17:00:10 +0100
Subject: Don't fail if the result is empty.

---
 perllib/FixMyStreet/DB/ResultSet/Problem.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perllib/FixMyStreet/DB/ResultSet/Problem.pm')

diff --git a/perllib/FixMyStreet/DB/ResultSet/Problem.pm b/perllib/FixMyStreet/DB/ResultSet/Problem.pm
index 44c066454..59227fce8 100644
--- a/perllib/FixMyStreet/DB/ResultSet/Problem.pm
+++ b/perllib/FixMyStreet/DB/ResultSet/Problem.pm
@@ -66,7 +66,7 @@ sub recent {
     my $result = Memcached::get($key);
     if ( $result ) {
         # Need to reattach schema so that confirmed column gets reinflated.
-        $result->[0]->result_source->schema( $rs->result_source->schema );
+        $result->[0]->result_source->schema( $rs->result_source->schema ) if $result->[0];
     } else {
         $result = [ $rs->search( {
             state => [ FixMyStreet::DB::Result::Problem->visible_states() ]
-- 
cgit v1.2.3