diff options
| author | Frank Lichtenheld <frank@lichtenheld.de> | 2007-03-31 15:57:47 +0200 |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2007-03-31 16:09:49 -0700 |
| commit | 0cf611a300fbbbd12827f9defb9cbcc934a3b1d6 (patch) | |
| tree | 2cf8bdf5c98080c8ec493c4936db52313162bccb /git-cvsserver.perl | |
| parent | 920a449af5a6b4ecbf01a5a4e3bc4894ad302634 (diff) | |
| download | git-0cf611a300fbbbd12827f9defb9cbcc934a3b1d6.tar.gz | |
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-x | git-cvsserver.perl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/git-cvsserver.perl b/git-cvsserver.perl index 941a91bcac..5532ae7a31 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; } |