--- /home/twst/perl5/DBIx/Class/Schema/Loader/DBI/mysql.pm	2008-06-06 18:17:46.522395900 -0400
+++ /home/twst/tmp/DBIx-Class-Schema-Loader-0.04005/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm	2008-04-04 19:24:26.000000000 -0500
@@ -121,32 +121,6 @@
     return \@uniqs;
 }
 
-## return auto_increment column
-sub _table_auto_increment_info {
-    my ($self, $table) = @_;
-
-    my $dbh = $self->schema->storage->dbh;
-    my $sth = $dbh->prepare($self->schema->storage->sql_maker->select($table, undef, \'1 = 0'));
-    $sth->execute;
-    return unless $sth->{mysql_is_auto_increment};
-    my $names = \@{$sth->{NAME_lc}};
-    my $auto  = \@{$sth->{mysql_is_auto_increment}};
-    $sth->finish;
-    my %auto;
-    @auto{@$names} = @$auto;
-    return (grep {$auto{$_}} keys %auto)[0];
-}
-
-sub _columns_info_for {
-    my $self  = shift;
-    my $table = shift;
-    my $info  = $self->SUPER::_columns_info_for($table, @_);
-    if (my $auto = $self->_table_auto_increment_info($table)) {
-        $info->{$auto}->{is_auto_increment} = 1;
-    }
-    return $info;
-}
-
 =head1 SEE ALSO
 
 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,