[Bast-commits] r3153 - trunk/DBIx-Class/lib/DBIx/Class/Storage

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-03-29 15:13:17 +0100 (Thu, 29 Mar 2007)
New Revision: 3153

Modified:
   trunk/DBIx-Class/lib/DBIx/Class/Storage/DBI.pm
Log:
backport Ash's quoting fix from Loader to columns_info_for

Modified: trunk/DBIx-Class/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- trunk/DBIx-Class/lib/DBIx/Class/Storage/DBI.pm	2007-03-29 14:11:00 UTC (rev 3152)
+++ trunk/DBIx-Class/lib/DBIx/Class/Storage/DBI.pm	2007-03-29 14:13:17 UTC (rev 3153)
@@ -926,7 +926,7 @@
   }
 
   my %result;
-  my $sth = $dbh->prepare("SELECT * FROM $table WHERE 1=0");
+  my $sth = $dbh->prepare($self->sql_maker->select($table, undef, \'1 = 0'));
   $sth->execute;
   my @columns = @{$sth->{NAME_lc}};
   for my $i ( 0 .. $#columns ){