X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXSql%2Fmysql.pm;h=ff708da61f038ba76f6d4b6d16288672a388131e;hb=e1de45af27eb69a8b063a8a88401174cd95e9683;hp=be3a7aff74300fa7d7f5424c3c6d02436e042fca;hpb=fd0a34c34ad4112ee21e0730f7307498ff437e18;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;
 }