[Bast-commits] r6942 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-07-02 11:47:41 +0000 (Thu, 02 Jul 2009)
New Revision: 6942

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm
Log:
Make the code readable

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm	2009-07-02 11:38:49 UTC (rev 6941)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm	2009-07-02 11:47:41 UTC (rev 6942)
@@ -973,9 +973,14 @@
   # 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;