Skip to content
Snippets Groups Projects
Commit 5fa664ad authored by Gerhard Gonter's avatar Gerhard Gonter :speech_balloon:
Browse files

get rid of warning

parent 16348f0c
No related branches found
No related tags found
No related merge requests found
......@@ -200,7 +200,7 @@ sub desc
# my @desc_columns= qw(Field Type Null Key Default Extra);
while (defined (my @x= $sth->fetchrow_array()))
while (my @x= $sth->fetchrow_array())
{
last unless (@x);
# print "x: ", Dumper (\@x); # if ($show_fetched);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment