summaryrefslogtreecommitdiff
path: root/git-cvsserver.perl
diff options
context:
space:
mode:
authorFrank Lichtenheld <frank@lichtenheld.de>2007-03-31 13:57:47 (GMT)
committerJunio C Hamano <junkio@cox.net>2007-03-31 23:09:49 (GMT)
commit0cf611a300fbbbd12827f9defb9cbcc934a3b1d6 (patch)
tree2cf8bdf5c98080c8ec493c4936db52313162bccb /git-cvsserver.perl
parent920a449af5a6b4ecbf01a5a4e3bc4894ad302634 (diff)
downloadgit-0cf611a300fbbbd12827f9defb9cbcc934a3b1d6.zip
git-0cf611a300fbbbd12827f9defb9cbcc934a3b1d6.tar.gz
git-0cf611a300fbbbd12827f9defb9cbcc934a3b1d6.tar.bz2
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>
Diffstat (limited to 'git-cvsserver.perl')
-rwxr-xr-xgit-cvsserver.perl4
1 files changed, 1 insertions, 3 deletions
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 @@ sub new
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;
}