X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FRow.pm;h=1bfb38fc0e13d9bee62140c6db9fad5551f094f3;hb=8d1fb3e2db62af871fa19e9d632c317021a356a5;hp=edc4b1cc1c9304a5cacdea163eb0c7888c0c021b;hpb=fe0708a2d68b5d34b6bc6f7e70164c3e569f1dd0;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index edc4b1c..1bfb38f 100644
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -1173,6 +1173,19 @@ sub inflate_result {
 
     my @pre_objects;
     for my $me_pref (@pre_vals) {
+
+        # FIXME - this should not be necessary
+        # the collapser currently *could* return bogus elements with all
+        # columns set to undef
+        my $has_def;
+        for (values %{$me_pref->[0]}) {
+          if (defined $_) {
+            $has_def++;
+            last;
+          }
+        }
+        next unless $has_def;
+
         push @pre_objects, $pre_source->result_class->inflate_result(
           $pre_source, @$me_pref
         );