From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 26 Jan 2013 15:44:37 +0000 (+0100)
Subject: Fix the silly mistake responsible for the drama around c9733800
X-Git-Tag: v0.08240~22
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0fb90aea07b7fd664aae2002ffab51ff64457b6;p=dbsrgits%2FDBIx-Class.git

Fix the silly mistake responsible for the drama around c9733800

A perlcritic policy to catch this stuff in the future is under consideration
---

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index f56ec61..a5e0e12 100644
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -1208,7 +1208,7 @@ sub inflate_result {
       # this away entirely, and *never* return such empty rows.
       # For now we maintain inflate_result API backcompat, see
       # t/resultset/inflate_result_api.t
-      next unless first { defined $_ } values %{$me_pref->[0]};
+      next unless defined first { defined $_ } values %{$me_pref->[0]};
 
       push @pre_objects, $pre_source->result_class->inflate_result(
         $pre_source, @$me_pref