X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXSql%2Fmysql.pm;fp=perl%2FDXSql%2Fmysql.pm;h=ff708da61f038ba76f6d4b6d16288672a388131e;hb=4cb816f8901e716be20be29b349336b5b045ef83;hp=be3a7aff74300fa7d7f5424c3c6d02436e042fca;hpb=9ab43597928cc5daadc2454d516eca9830da50c8;p=spider.git

diff --git a/perl/DXSql/mysql.pm b/perl/DXSql/mysql.pm
index be3a7aff..ff708da6 100644
--- a/perl/DXSql/mysql.pm
+++ b/perl/DXSql/mysql.pm
@@ -22,7 +22,9 @@ sub show_tables
 	my $sth = $self->prepare($s);
 	$sth->execute;
 	my @out;
-	push @out, $sth->fetchrow_array;
+	while (my @t = $sth->fetchrow_array) {
+		push @out, @t;
+	}
 	$sth->finish;
 	return @out;
 }