[Bast-commits] r9343 - DBIx-Class/0.08/branches/filter_column/lib/DBIx/Class

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-05-11 15:45:49 +0100 (Tue, 11 May 2010)
New Revision: 9343

Modified:
   DBIx-Class/0.08/branches/filter_column/lib/DBIx/Class/FilterColumn.pm
Log:
Comment weird looking code

Modified: DBIx-Class/0.08/branches/filter_column/lib/DBIx/Class/FilterColumn.pm
===================================================================
--- DBIx-Class/0.08/branches/filter_column/lib/DBIx/Class/FilterColumn.pm	2010-05-11 10:03:46 UTC (rev 9342)
+++ DBIx-Class/0.08/branches/filter_column/lib/DBIx/Class/FilterColumn.pm	2010-05-11 14:45:49 UTC (rev 9343)
@@ -123,7 +123,11 @@
       exists $self->column_info($key)->{_filter_info}
     ) {
       $self->set_filtered_column($key, delete $attrs->{$key});
-      $self->get_column($key);
+
+      # FIXME update() reaches directly into the object-hash
+      # and we may *not* have a filtered value there - thus
+      # the void-ctx filter-trigger
+      $self->get_column($key) unless exists $self->{_column_data}{$key};
     }
   }