commit 0cf611a300fbbbd12827f9defb9cbcc934a3b1d6
author Frank Lichtenheld <frank@lichtenheld.de> Sat Mar 31 15:57:47 2007 +0200
committer Junio C Hamano <junkio@cox.net> Sat Mar 31 16:09:49 2007 -0700
tree 2cf8bdf5c98080c8ec493c4936db52313162bccb
parent 920a449af5a6b4ecbf01a5a4e3bc4894ad302634

cvsserver: Use DBI->table_info instead of DBI->tables

DBI->table_info is portable across different DBD backends,
DBI->tables is not.

Limit the output to objects of type TABLE.

Signed-off-by: Junio C Hamano <junkio@cox.net>
Signed-off-by: Frank Lichtenheld <frank@lichtenheld.de>

git-cvsserver.perl

diff --git a/git-cvsserver.perl b/git-cvsserver.perl
index 941a91b..5532ae7 100755
--- a/git-cvsserver.perl
+++ b/git-cvsserver.perl
@@ -2171,10 +2171,8 @@
     die "Error connecting to database\n" unless defined $self->{dbh};
 
     $self->{tables} = {};
-    foreach my $table ( $self->{dbh}->tables )
+    foreach my $table ( keys %{$self->{dbh}->table_info(undef,undef,undef,'TABLE')->fetchall_hashref('TABLE_NAME')} )
     {
-        $table =~ s/^"//;
-        $table =~ s/"$//;
         $self->{tables}{$table} = 1;
     }