[Bast-commits] r7243 - DBIx-Class-InflateColumn-FS/1.000/trunk/lib/DBIx/Class/InflateColumn

[mo at dev.catalyst.perl.org]

Author: mo
Date: 2009-08-06 16:18:57 +0000 (Thu, 06 Aug 2009)
New Revision: 7243

Modified:
   DBIx-Class-InflateColumn-FS/1.000/trunk/lib/DBIx/Class/InflateColumn/FS.pm
Log:
fixed failure for search()es when using "as" with a column which is not a column of the result source

Modified: DBIx-Class-InflateColumn-FS/1.000/trunk/lib/DBIx/Class/InflateColumn/FS.pm
===================================================================
--- DBIx-Class-InflateColumn-FS/1.000/trunk/lib/DBIx/Class/InflateColumn/FS.pm	2009-08-06 15:54:33 UTC (rev 7242)
+++ DBIx-Class-InflateColumn-FS/1.000/trunk/lib/DBIx/Class/InflateColumn/FS.pm	2009-08-06 16:18:57 UTC (rev 7243)
@@ -73,7 +73,7 @@
     my $new = $class->next::method($source, $me, $prefetch);
     
     while ( my($column, $data) = each %{$new->{_column_data}} ) {
-        if ( $source->column_info($column)->{is_fs_column} && defined $data ) {
+        if ( $source->has_column($column) && $source->column_info($column)->{is_fs_column} && defined $data ) {
             $new->{_fs_column_filename}{$column} = $data;
         }
     }