Make the code readable

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index f8bed0e..01a270f 100644 (file)
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -973,9 +973,14 @@ sub _collapse_result {
   # hit by a smooth^Wempty left-joined resultset. Just noop in that case
   # instead of producing a {}
   #
-  # Note the double-defined - $row may be [ 0, '' ]
-  #
-  return undef unless ( defined List::Util::first { defined $_ } (@$row) );
+  my $has_def;
+  for (@$row) {
+    if (defined $_) {
+      $has_def++;
+      last;
+    }
+  }
+  return undef unless $has_def;
 
   my @copy = @$row;