diff options
author | Matthew Somerville <matthew@mysociety.org> | 2011-09-15 17:00:10 +0100 |
---|---|---|
committer | Matthew Somerville <matthew@mysociety.org> | 2011-09-15 17:00:10 +0100 |
commit | df3b650e9d9829ba4093a8b637c1c670c982884f (patch) | |
tree | b844cbc4d9ce6b44ac964431e34c6968749a6d82 | |
parent | cca853672d391dcf78e76f91c860b8d21c14dbd6 (diff) |
Don't fail if the result is empty.
-rw-r--r-- | perllib/FixMyStreet/DB/ResultSet/Problem.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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() ] |