add CTY-2202 prefix data

[spider.git] / perl / DXSql / mysql.pm

diff --git a/perl/DXSql/mysql.pm b/perl/DXSql/mysql.pm
index be3a7aff74300fa7d7f5424c3c6d02436e042fca..ff708da61f038ba76f6d4b6d16288672a388131e 100644 (file)
--- 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;
 }