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 (file)
--- 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