[Bast-commits] r8485 - in DBIx-Class/0.08/branches/pri_key_refactor: . lib/DBIx/Class/Storage/DBI

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-01-31 09:20:36 +0000 (Sun, 31 Jan 2010)
New Revision: 8485

Removed:
   DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/AmbiguousGlob.pm
Modified:
   DBIx-Class/0.08/branches/pri_key_refactor/Makefile.PL
   DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/MSSQL.pm
   DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/mysql.pm
Log:
This is not really used for anything (same code in DBI)

Modified: DBIx-Class/0.08/branches/pri_key_refactor/Makefile.PL
===================================================================
--- DBIx-Class/0.08/branches/pri_key_refactor/Makefile.PL	2010-01-31 09:06:29 UTC (rev 8484)
+++ DBIx-Class/0.08/branches/pri_key_refactor/Makefile.PL	2010-01-31 09:20:36 UTC (rev 8485)
@@ -150,7 +150,6 @@
   lib/DBIx/Class/PK/Auto
 |);
 no_index package => $_ for (qw/
-  DBIx::Class::Storage::DBI::AmbiguousGlob
   DBIx::Class::SQLAHacks DBIx::Class::Storage::DBIHacks
 /);
 

Deleted: DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/AmbiguousGlob.pm
===================================================================
--- DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/AmbiguousGlob.pm	2010-01-31 09:06:29 UTC (rev 8484)
+++ DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/AmbiguousGlob.pm	2010-01-31 09:20:36 UTC (rev 8485)
@@ -1,47 +0,0 @@
-package DBIx::Class::Storage::DBI::AmbiguousGlob;
-
-use strict;
-use warnings;
-
-use base 'DBIx::Class::Storage::DBI';
-use mro 'c3';
-
-=head1 NAME
-
-DBIx::Class::Storage::DBI::AmbiguousGlob - Storage component for RDBMS choking on count(*)
-
-=head1 DESCRIPTION
-
-Some servers choke on things like:
-
-  COUNT(*) FROM (SELECT tab1.col, tab2.col FROM tab1 JOIN tab2 ... )
-
-claiming that col is a duplicate column (it loses the table specifiers by
-the time it gets to the *). Thus for any subquery count we select only the
-primary keys of the main table in the inner query. This hopefully still
-hits the indexes and keeps the server happy.
-
-At this point the only overriden method is C<_subq_count_select()>
-
-=cut
-
-sub _subq_count_select {
-  my ($self, $source, $rs_attrs) = @_;
-
-  return $rs_attrs->{group_by} if $rs_attrs->{group_by};
-
-  my @pcols = map { join '.', $rs_attrs->{alias}, $_ } ($source->primary_columns);
-  return @pcols ? \@pcols : [ 1 ];
-}
-
-=head1 AUTHORS
-
-See L<DBIx::Class/CONTRIBUTORS>
-
-=head1 LICENSE
-
-You may distribute this code under the same terms as Perl itself.
-
-=cut
-
-1;

Modified: DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/MSSQL.pm
===================================================================
--- DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/MSSQL.pm	2010-01-31 09:06:29 UTC (rev 8484)
+++ DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/MSSQL.pm	2010-01-31 09:20:36 UTC (rev 8485)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use base qw/DBIx::Class::Storage::DBI::AmbiguousGlob DBIx::Class::Storage::DBI/;
+use base qw/DBIx::Class::Storage::DBI/;
 use mro 'c3';
 
 use List::Util();

Modified: DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/mysql.pm
===================================================================
--- DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/mysql.pm	2010-01-31 09:06:29 UTC (rev 8484)
+++ DBIx-Class/0.08/branches/pri_key_refactor/lib/DBIx/Class/Storage/DBI/mysql.pm	2010-01-31 09:20:36 UTC (rev 8485)
@@ -5,7 +5,6 @@
 
 use base qw/
   DBIx::Class::Storage::DBI::MultiColumnIn
-  DBIx::Class::Storage::DBI::AmbiguousGlob
   DBIx::Class::Storage::DBI
 /;
 use mro 'c3';