[Bast-commits] r6749 - DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-20 22:22:23 +0000 (Sat, 20 Jun 2009)
New Revision: 6749

Modified:
   DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class/ResultSet.pm
Log:
whoops

Modified: DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class/ResultSet.pm
===================================================================
--- DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class/ResultSet.pm	2009-06-20 22:18:33 UTC (rev 6748)
+++ DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class/ResultSet.pm	2009-06-20 22:22:23 UTC (rev 6749)
@@ -2713,7 +2713,7 @@
   # Although this is needed only if the order_by is not defined, it is
   # actually cheaper to just populate this rather than properly examining
   # order_by (stuf like [ {} ] and the like)
-  my $prefix = $alias . ($source->schema->storage->_sql_maker_opts->{name_sep} || '.');
+  my $prefix = $alias . ($source->schema->storage->sql_maker->{name_sep} || '.');
   $attrs->{_virtual_order_by} = [
     map { $prefix . $_ } ($source->primary_columns)
   ];